[Decoding]

Ты с примером внимательно разбирался? Там флаг и используется. Перед запуском потока флаг сбрасывается.

Код:

CanStop := false

После запуска потока программа входит в бесконечный цикл с обработкой сообщений. В этом цикле она ожидает момента, когда поток, закончивший свою работу, установит сброшенный флаг (CanStop).

Код:

while not CanStop do
   Application.ProcessMessages;

Поток заканчивает свою работу тогда, когда полностью отработала процедура Execute созданного потока. Неважно, что происходит внутри Execute, просто в самом конце нужно установить флаг (CanStop), сброшенный перед созданием потока.

Код:

procedure Taaa._Stop;
begin
   CanStop := true;
end;

procedure Taaa.Execute;
begin
   ...
   Synchronize( _Stop );
end;

Как только флаг устоновлен, твоя программа точно знает, что поток завершен. Теперь можешь программно нажать на нужную тебе кнопку.