Здравствуйте, Daimond, Вы писали:

D>Здравствуйте, akasoft, Вы писали:

A>>Здравствуйте, Daimond, Вы писали:

D>>>Как понять выполняется ли этот поток в данный момент или уже завершился и удалился?

A>>Событие OnTerminate() потока.

D>Поднимать там флаг... можно... А есть какие-нибудь другие способы?

перекрыть onterminate (надеюсь правильно выразился).
К примеру так

 ............
 with TMyTheard.Create(true) do
  begin
   OnTerminate:=TheardDone;
   Resume;
  end;
...........
procedure TForm1.TheardDone(Sender: TObject);
begin
 ShowMessage('Поток отработал');
end;