OnTerminate Eventhandler definieren

[Sven95]

Hat sich erledigt, habe es gelöst.

Habe mit einer with-Anweisung gearbeitet und da hat sich ein Fehler eingeschlichen

Delphi-Quellcode:

TMain = class(TForm)
private
  procedure ThreadErstellen;
  procedure Terminate(Sender: TObject);
public

end;

procedure TMain.ThreadErstellen;
begin
  Thread1 := TThread.Create(True);
  with Thread1 do
  begin
    OnTerminate := Terminate;//Das Problem war, dass ich die Methode "Terminate" genannt habe
                             //Die Thread-Klasse besitzt ja selbst schon eine Terminate Routine  
  end; //of with
end;

procedure TMain.MeineMethode;
begin
  //Anweisung
end;