при запуске приложения отдельным потоком считываю данные из одной базы и пишу их после обработки в другую
время от времени при выходе поток всё ещё висит до перезапуска машины
как правильно запустить а потом убить поток
всё делал по книжному вроде должно работать как надо
но видимо необходим практический совет того кто уже пощупал эти потоки
жду.............................

Неужели никто не использует THRead.
Просветите если есть что то получше ?

причину нашёл но как обойти ?
в 1 модуле создание потока
во 2 сам поток
в 3 функции которые поток вызывает пока крутится

в одной из функций цикл вертится иногда достаточно долго
поток висит изза того что цикл не завершён
а вертется он может и 15 минут


логично сделать так

while ... do
begin
if terminated then break;
...
...
end;

но эта сволочь говорит что не знает что за terminated такой
вполне логично было бы прописать в uses имя unit 'a с потоком
прописываю
кричит circular unit reference

что то я не понимаю в этой жизни

АУУУУУУУУ
знатоки вы где ?

в смысле в такой последовательности переписать модули ?

Main

procedure TfrmMain.BtnReadClick(Sender: TObject);
var
SQLQuery: String;
DataTime: TDateTime;
begin
Screen.Cursor := crHourGlass;
...
...
T1 := THBase.Create(false);
Screen.Cursor := crDefault;
end;

THRead

procedure THBase.Execute;
var
i: integer;
begin
SetName;
FreeOnTerminate := true;
ReadBase(ReadIni('Path', 'FileName'),
ReadIni('Path', 'BasePath'));
end;


ну и в ReadBase читаю и обрабатываю записи

Не понял а при
T1 := THBase.Create(false);
что вызывается
я же его сразу запускаю
и потом у меня проблема прервать цикл чтобы поток мог спокойно умереть
потому что если я вышел из приложения то надобности ждать пока он завершится нет

while ... do
begin
if terminated then break;
...
...
end;

но эта сволочь говорит что не знает что за terminated такой
вполне логично было бы прописать в uses имя unit'a с потоком
прописываю
кричит circular unit reference

Вот где собака порылась !!!

THRead вызывается во 2 секции uses модуля Main

terminate а тем более free не вызывается всё тормозит на suspend
поток ждёт пока цикл мать его кончит слов нет уже писать чего делать

.