Есть класс потока:
TNewThread = class(TThread)
private
procedure Parser_auto_info(var MLQuery: TADOQuery; MTable: TADOTable);
protected
procedure Execute; override;
public
MPersent, StartRegion, EndRegion, idHandle: integer;
StartThread: boolean;
end;
И объявлены в публичном разделе переменных формы три экземпляра таких:
var NewThread, NewThread2, NewThread3: TNewThread;
Запуск потока идет таким образом:
// поток 1
NewThread := TNewThread.Create;
with NewThread do
begin
FreeOnTerminate:=true;
Priority:=tpLower;
Resume;
idHandle:=1;
StartRegion:=pos1Region; //1;
EndRegion:=54;
StartThread:=true;
end;
На событие Close
формы ставлю такой код:
if NewThread.StartThread then
try
TerminateThread(NewThread.Handle, 0);
finally
NewThread.Free;
end;
Он вываливает ошибку памяти. Пробовал так закрывать вместе с формой поток:
if not Assigned(NewThread) then
NewThread.Terminate;
FreeAndNil(NewThread);
Пробовал прописывать еще в событие destroy формы:
NewThread.Free;
Но и это не помогает никак. Ошибки идут настойчиво, по причине того, что поток(и) некорректно закрывается. Как победить эту ошибку? Сразу говорю, что в потоке идет еще работа с базой данных, вывод данных на форму (счетчики и прогресс загрузки).