Опппс.....

Забравих нещо...

добави и това при дестройването на Трейда


destructor TMyThread.Destroy;
begin
PostMessage(MainForm.Handle,wm_ThreadDoneMsg,self.ThreadID,0);
end;