Console Application потоки продолжают висеть

[noveek]

Здравствуйте, в многопоточном Console Application потоки сами собой не убиваются, а продолжают висеть

{$APPTYPE CONSOLE}
constructor th.create(createsuspended: boolean);
begin
inherited Create(CreateSuspended);
FreeOnTerminate:= true; //Не работает в консольном приложении
end;
 
procedure th.Execute;
var
begin
inherited;
while work do begin
cs.Enter;
Inc(tread);
if tread=Count then work:=false else cur:=tread;
cs.Leave;
if work then begin
Object.create;
....
end;
end;
FreeAndnil(Object);
cs.Enter;
if not FileExists (Extractfilepath(paramstr(0))+'result.txt') then begin
Assignfile(file, Extractfilepath(paramstr(0))+'result.txt');
Rewrite(file);
Closefile(file);
end;
Append(file);
Writeln(file,stroka);
Closefile(file);
cs.Leave;
// Здесь Пытаюсь освободить и убить поток который уже отработал
DoTerminate; 
WaitFor;
end;
end;

[stalkernet]

Сообщение от noveek

WaitFor;

Ну и что мы тут ожидаем???
Просто Terminate;