Fehler mit einer function!?!

[Plague]

Genau das habe ich schon andersrum gemacht.
Ich hatte alles in einer normalen Form (nicht in ActiveX Form) erstellt und es geht nun um den Thread. Ohne diesen funktioniert anscheinend nicht die gleichzeitige Verarbeitung von Bilderanzeige im Image1 und dem Upload.

Um den Code zu komplettieren. Also diese Function war komplett. Hier der Quelltext wie ich sie aufrufen will:

Delphi-Quellcode:

procedure TActiveFormX.Image2Click(Sender: TObject);
var 
  ThreadID: Cardinal; 
  ThreadHandle: HWND; 
begin 
  ThreadHandle := BeginThread(nil, 0, TFNThreadStartRoutine(@StarteThread), nil, 0, ThreadID);
  if ThreadHandle <> 0 then CloseHandle(ThreadHandle);
end;

Thomas