帮我看一看错误

[ThreeYears]

帮我看一看错误　
//dll中：
var
Dllform: TDllform;
function ShowCalendar(AHandle: THandle; ACaption: pchar): TDateTime;
implementation

{$R *.DFM}
function ShowCalendar(AHandle: THandle; ACaption:pchar): TDateTime;
begin
Application.Handle := AHandle;
DLLForm := TDLLForm.Create(Application); //创建并显示窗体
try
DLLForm.Caption := ACaption;
DLLForm.ShowModal; //显示方式为模式化
Result := DLLForm.calDLLCalendar.date; //返回设定日期
finally
DLLForm.Free; //用完后卸载该窗体end;
end;
end;
//调用:
type
Tcalnedar=function ShowCalendar(AHandle: THandle; ACaption: pchar):TDateTime;stdcall;
//出错[Error] Unit1.pas(10): Function needs result type

procedure TForm1.Button1Click(Sender: TObject);
var
libhandle:Thandle;
calendar:Tcalendar;
begin
libhandle:=loadlibrary('testdll.dll');
try
if libhandle=0 then
exit;
@calendar:=Getprocaddress(libhandle,ShowCalendar);
if not (@calendar=nil) then
edit1.text:=ShowCalendar(application.handle,'testdll');
finally
exit;
end;
end;

[u2m]

Tcalnedar=function ShowCalendar(AHandle: THandle; ACaption: pchar):TDateTime;stdcall;
改为
Tcalnedar=function (AHandle: THandle; ACaption: pchar):TDateTime;stdcall;
把ShowCalendar去掉

[ylmg]

type
Tcalnedar=function ShowCalendar(AHandle: THandle; ACaption: pchar):TDateTime;stdcall;

这是要声明一个函数类型啊，当然不能带ShowCalendar了，
现去看看object pascal再来学delphi吧，会轻松点的。