TMyThread...
procedure TForm1.OnButton1Click(Sender:TObject)
begin
...
MyThread:=TMyThread.Create;
MyThread.OnTerminate:=OnMyThreadTerminate;
...
end;
procedure TForm1.OnMyThreadTerminate;
begin
//To do what you want to do when my thread teminate
end;