var
  Form1: TForm1;
  hloopHandle:Thandle;           //线程 句柄
  ThreadID:DWORD ;              //线程 idprocedure TForm1.FormCreate(Sender: TObject);
 var
  Handle:THandle;
begin
      Handle:=LoadLibrary('doudi.dll');
      GetHtml:=GetProcAddress(Handle,'GetSourceHtml');
end;procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 if (Edit1.Text='') OR (Edit2.Text='') OR (Edit3.Text='') then
begin
MessageBox(self.Handle,'文本框不能为空!','错误',MB_OK);
end
else
begin
hloopHandle:=CreateThread(nil,0,@TForm1.useGetHtml,nil,0,ThreadID);
end;
end; hloopHandle:Thandle;           //线程 句柄
  ThreadID:DWORD ;              //线程 id[/code]定义在函数中,创建线程时就会出现错误,这是为什么