编译不通过，大家帮帮忙看下解决方案

编译不通过，大家帮帮忙看下
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
  Button1: TButton;
  private
  { Private declarations }
  public
  function LoadDlldb(i:integer):Boolean;
  { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function TForm1.LoadDlldb(i:integer):Boolean;
//调用初始化数据库DLL
//i:0:用户
//i:1:定时器
var
  dllhandle : THandle; //句柄
  Show_TTFrmSiteAdd:function():Boolean;stdcall; //用户触发
  TimerShow_TTFrmSiteAdd:function():Boolean;stdcall; //定时器触发
begin
  Result:=False;
  if not FileExists('SiteAddDel.dll') then
  begin
  showmessage('缺少SiteAddDel.dll文件，无法完成此操作.');
  exit;
  end;
  dllhandle := LoadLibrary(pchar('SiteAddDel.dll'));
  try
  try
  case i of
  0:begin
  @Show_TTFrmSiteAdd := GetProcAddress(dllhandle,'Show_TTFrmSiteAdd');
  Result:=Show_TTFrmSiteAdd();
  end;
  1:begin
  @TimerShow_TTFrmSiteAdd := GetProcAddress(dllhandle,'TimerShow_TTFrmSiteAdd');
  Result:=TimerShow_TTFrmSiteAdd();
  end;
  end;
  except
  end;
  finally
  //FreeLibrary(dllhandle);
  end;
end;


end.


[解决办法]
Show_TTFrmSiteAdd:function():Boolean;stdcall; //用户触发
TimerShow_TTFrmSiteAdd:function():Boolean;stdcall; //定时器触发


有这样写的吗? 晕
[解决办法]
Show_TTFrmSiteAdd:function():Boolean;stdcall; //用户触发
TimerShow_TTFrmSiteAdd:function():Boolean;stdcall; //定时器触
错了
应该先声明类型
type 

tShow_TTFrmSiteAdd=function():Boolean;//用户触发
tTimerShow_TTFrmSiteAdd=function():Boolean; //定时器

var 

Show_TTFrmSiteAdd:tShow_TTFrmSiteAdd;
TimerShow_TTFrmSiteAdd:tTimerShow_TTFrmSiteAdd;


[解决办法]
不能吧，你用的是delphi几的编译器啊，delphi2005，和delphiXE我都测试过，没问题的啊，报错肯定是你这个文件的其他地方报错的，如果你用的是其他版本，你按照下面改一下：
把
type
tShow_TTFrmSiteAdd=function():Boolean;stdcall;//用户触发
tTimerShow_TTFrmSiteAdd=function():Boolean;stdcall; //定时器
提到前面，放在：
放在
type
tShow_TTFrmSiteAdd=function():Boolean;stdcall;//用户触发
tTimerShow_TTFrmSiteAdd=function():Boolean;stdcall; //定时器
TForm1 = class(TForm)
然后按照下面定义函数：

function TForm1.LoadDlldb(i:integer):Boolean;
var
dllhandle : THandle; //句柄
Show_TTFrmSiteAdd:tShow_TTFrmSiteAdd;
TimerShow_TTFrmSiteAdd:tTimerShow_TTFrmSiteAdd;
begin
Result:=False;
if not FileExists('SiteAddDel.dll') then
begin
showmessage('缺少SiteAddDel.dll文件，无法完成此操作.');
exit;
end;
dllhandle := LoadLibrary(pchar('SiteAddDel.dll'));
try
try
case i of
0:begin
@Show_TTFrmSiteAdd := GetProcAddress(dllhandle,'Show_TTFrmSiteAdd');
Result:=Show_TTFrmSiteAdd();
end;
1:begin
@TimerShow_TTFrmSiteAdd := GetProcAddress(dllhandle,'TimerShow_TTFrmSiteAdd');
Result:=TimerShow_TTFrmSiteAdd();
end;
end;
except
end;
finally
//FreeLibrary(dllhandle);
end;
end;