使用CreateThread的问题

我没有在Delphi中使用CreateThread函数,能否指点一下;
目的是在登录Form中用线程来运行登录函数
我定义的登录函数是
function LoginThread(ADOConnection1: TADOConnection):integer;
begin
   ADOConnection1.Connected := true;
   ExitThread(0);
end;....
procedure TFormLogin.BokClick(Sender: TObject);
var
h1 :THandle;
begin
h1 :=  CreateThread(nil,0,LoginThread,ADOLink,0,nil);
....
ModalResult := mrOK;
end;
编译通不过