kl. Problem mit button und OnClick

[new32]

Zu den Threads:

Delphi-Quellcode:

function ThreadProc(p:Pointer):DWORD; stdcall; //* @Apollonius: TNX */
begin                     //* dieser code wird Thread ausgeführt            */
  MessageBox(0, 'Hallo', '', MB_OK);
  Sleep(10000);           //* Thread schläft; Hauptprogramm arbeitet weiter */
  result:=0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var tid:DWORD;
  hThread:THANDLE;
begin
  hThread:=CreateThread(nil, 0, @ThreadProc, nil, 0, tid);
  CloseHandle(hThread);
end;

mfg