RAD 11+ TThread уничтожение объекта, очистка ссылки

type
  TMyThread = class(TThread)
    FFrmHnd:THandle;
  private
    procedure Execute; override;
  public
    constructor MyCreate(CreateSuspended:boolean;FrmHnd:THandle);
 end;
 
type
  TMyForm = class(TForm)
    FMyThread:TMyThread;
  private
    { Private declarations }
  public
    { Public declarations }
    constructor MyCreate(AOwner:TComponent);
    function ShowModal:integer;         override;
    procedure WndProc(var Message: TMessage); override;
    procedure DoClose(var Action: TCloseAction); override;
  end;
 
const
  Msg01=WM_User+1; //сообщение отправляемое мной в теле потока
  Msg02=WM_User+2; //сообщение отправляемое мной перед выходом с тела потока.
 
implementation
 
//поток
procedure TMyThread.Execute;
begin
  while not Terminated do
    begin
      //начало действий выполняемых в теле потоке.
      SendMessage(FFrmHnd,Msg01,0,0); //в некоторый момент выполнения тела потока
      //конец действий выполняемых в теле потоке.
      Sleep(3000); //задержка между повторами выполнения действий
    end;
    SendMessage(FFrmHnd,Msg02,0,0);
end;
 
constructor TMyThread.MyCreate(CreateSuspended:boolean;FrmHnd:THandle);
begin
  inherited Create(CreateSuspended); //метод предка.
  FFrmHnd:=FrmHnd; //handle окна, куда будут отправляться сообщения
end;
//динамически создаваемая форма
constructor TMyForm.MyCreate(AOwner:TComponent);
begin
  inherited CreateNew(AOwner);      //метод предка.
  FMyThread:=TMyThread.MyCreate(True,self.handle);
  FMyThread.Priority:=tpLower;      //приоритет.
  FMyThread.FreeOnTerminate:=False; //уничтожать по завершению, для уверенности что поток не уничтожен.
end;
 
Function TMyForm.ShowModal:integer;
begin
  FMyThread.Start;                    //старт выполнения потока.
  Result:=inherited ShowModal;  //метод предка.
end;
 
procedure TMyForm.WndProc(var Message: TMessage);
begin
  case Message.Msg of
    Msg01: begin
      //тут предполагается изменения индикации в процессе работы потока с помощью Message.WParam или Message.LParam.
      //отладка. На текущий момент описан выход с цикла тела потока.
      ShowMessage('поток: сообщение в теле');  
      FMyThread.Terminate;  
    end;
    Msg02: begin
      //Завершение тела потока
      //отладка. На текущий момент описан выход с тела потока и отправка команды на закрытие формы.
      ShowMessage('поток: выход из тела');       
      SendMessage(self.Handle,WM_CLOSE,0,0);
    end;
    WM_Close: begin
      //действия выполняемые при закрытии формы
      ShowMessage('закрыть форму');       
      if Assigned(FMyThread) then    
        if not FMyThread.Terminated then  //если поток не завершен
          begin
            FMyThread.Terminate; //завершаю поток.
            //нужно дождаться завершения потока.
          end;
      inherited WndProc(Message);
    end
    else inherited WndProc(Message);   //метод предка.
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var MyForm1:TMyForm;
begin
  MyForm1:=TMyForm.MyCreate(self);
  MyForm1.ShowModal;
end;

    WM_Close: begin
      //действия выполняемые при закрытии формы
      ShowMessage('закрыть форму');       
      if Assigned(FMyThread) then    
        if not FMyThread.Terminated then  //если поток не завершен
          begin
            FMyThread.Terminate; //завершаю поток.
          //как корректно дождаться завершения потока и уничтожить объект и ссылку на него???
          //FMyThread.WaitFor;
          //if Assigned(FMyThread) then begin FMyThread.Destroy; FMyThread.NIL end;
          end;
      inherited WndProc(Message);
    end