Корректное закрытие дополнительного потока

type     { TComPortPoolingThread }
 
    TComPortPoolingThread = class(TThread)
    private
    protected
        //procedure ShowResult;
        procedure Execute; override;         // В реализации - бесконечный цикл, опрашивающий Com-порт        
    end;

var threadPool: TComPortPoolingThread;

procedure TFormMain.FormCreate(Sender: TObject);
 
begin
    threadPool:= TComPortPoolingThread.Create(False);       // Создаем и запускаем поток
    threadPool.Priority:= tpNormal;                         
    threadPool.FreeOnTerminate:= true;                      
end;

procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
 
end;

type     { TComPortPoolingThread }
 
    TComPortPoolingThread = class(TThread)
    private
        FTerminated: boolean;
    protected
        //procedure ShowResult;
        procedure Execute; override;         // В реализации - бесконечный цикл, опрашивающий Com-порт
    end;
procedure TComPortPoolingThread.Execute;
begin
    while (true) do begin
        if(FTerminated) exit;
    end;
end;
 
procedure TFormMain.FormCreate(Sender: TObject);
begin
    threadPool:= TComPortPoolingThread.Create(False);       // Создаем и запускаем поток
    threadPool.Priority:= tpNormal;
    threadPool.FreeOnTerminate:= true;
end;
 
procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
    FTerminated:= true;
end;

type     { TComPortPoolingThread }
 
    TComPortPoolingThread = class(TThread)
    protected
        //procedure ShowResult;
        procedure Execute; override;         // В реализации - бесконечный цикл, опрашивающий Com-порт
    end;
 
procedure TComPortPoolingThread.Execute;
begin
    while not Terminated do // поле FTerminated УЖЕ есть в классе TThread, не нужно добавлять еще одно
    begin
        // ...
    end;
end;
 
procedure TFormMain.FormCreate(Sender: TObject);
 
begin
    threadPool:= TComPortPoolingThread.Create(False);       // Создаем и запускаем поток
    threadPool.Priority:= tpNormal;
    threadPool.FreeOnTerminate:= true;
end;
 
procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
    threadPool.Terminate;
    threadPool.WaitFor;
end;

while not FTerminated do  begin

  while not Terminated do