Sender.Free

[himitsu]

Oder (das arbeitet intern auch über die Messages)

Delphi-Quellcode:

//irgendwo wo's benötigt ist
procedure TForm1.Test(Sender: TObject);
begin
  TThread.ForceQueue(nil, procedure
    begin
       // was soll hier passieren?
    end);
end;