What is the correct way to interrupt a thread in Delphi

Question

I am creating a thread with the basic information and structure as indicated below. Apparently everything is working well, but I noticed that when executing the Terminate, thread does not pass through Destroy. Placing a breakpoint of Destroy I noticed that the thread will only finish effectively when the main application finishes as well. I’m testing on Android and my version of Delphi is 10.2.

BASIC THREAD

// MyThread "TPoolingThread"
constructor TPoolingThread.Create;
begin
   inherited Create(True); // Inicialização suspensa

   // Inicializa algumas coisas
end;

destructor TPoolingThread.Destroy;
begin
   inherited Destroy;
end;

procedure TPoolingThread.Execute;
begin
   try
      while (not Terminated) do begin
         sleep(100);
         // faz algumas coisas
      end;
   finally
      if not Terminated then
         Terminate;
   end;
end;

RUNNING THE THREAD

// Na aplicação principal.... 

   //////////////////////////////////////////
   // Crio e inicializo a thread no BOTÃO 1
   MyThread := TPoolingThread.Create;
   MyThread.Start;

   //////////////////////////////////////////
   // Interrompo a thread no BOTÃO 2
   MyThread.Terminate;