type
TMyThread = class(TThread)
private
procedure ThreadDone(Sender: TObject);
public
constructor Create(CreateSuspended: Boolean);
end;
implementation
constructor TMyThread.Create(CreateSuspended: Boolean);
begin
OnTerminate := ThreadDone;
end;
procedure TMyThread.ThreadDone(Sender: TObject);
begin
// Do you stuff here
end;