Inztanz macht neue Instanz der gleichen Klasse

[Minz]

Hallo,

Ich habs mal mit Threads ausprobiert und hat auch geklappt mit den Startwerten 100, 99, 98 aber nicht mit 0...da gabs dann erstmal einen üblen Systemhänger

Jetzt kann ich nicht mal mehr das Programm starten...da kommt dann eine Fehlermeldung Runtime-Error 216 at Adress ...

und das obwohl ich schon in der Projektdatei einen Breakpoint gesetzt habe.

Hier mal mein Code, ist ja nix wildes:

unit Main:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  myobject:=TMyObject.create(handle,0);
end;

procedure TForm1.GetMessage(var msg: TMessage);
begin
  i:=i+msg.wparam;
  label1.caption:=inttostr(i);
end;

unit MyObject:

Delphi-Quellcode:

constructor TMyObject.create(hand: LongWord;c: integer);
begin
  FHandle:=hand;
  FCount:=c;
  inherited create(false);
  FreeOnTerminate:=true;
end;

procedure TMyObject.Execute;
var  mo:TMyObject;
begin
  if FCount<100 then begin
    mo:=TMyObject.create(FHandle, FCount+1);
  end;
  PostMessage(FHandle,WM_CreateDestroy,1,1);
end;

Gruß Minz