procedure TForm1.FormCreate(Sender: TObject); var tt: TThread; begin tt.OnTerminate:=FormCreate; end;