Как синхронизировать потоки в Application Console?

program Project1;
 
{$APPTYPE CONSOLE}
 
{th}
 
constructor th.create(createsuspended: boolean);
begin
inherited Create(CreateSuspended);
Doterminate;
end;
 
procedure th.Execute;
var
// var var var
begin
inherited;
while work do begin
cs.Enter;
inc(...);
if .. = ... then work=false;
cs.Leave;
if work then begin
//... code code
end;
Synchronize(sync); // Not Work
end;
end;
 
procedure th.sync;
begin
Writeln('Synchronize ok'); // None (
end;
 
var
//
Work:=True;
for potok:=0 to 100 do
th.Create(false);
Readln;

TMyThread = class(TThread)
protected
  FIsIdle: boolean; 
  procedure Execute; override;
  procedure MyMethod;
public
  property IsIdle : boolean read FIsIdle write FIsIdle; //you should use critical section to read/write it
end;
 
procedure TMyThread.Execute;
begin
  try
    while not Terminated do
    begin
      Synchronize(MyMethod);
      Sleep(100);
    end;
  finally
    IsIdle := true;
  end;
end;
 
//thread destroy;
lMyThread.Terminate;
while not lMyThread.IsIdle do
begin
  CheckSynchronize;
  Sleep(50);
end;

while not Terminated do 
заменить на 
if not Terminated then

procedure th.Execute;
var
// var var var
begin
inherited;
while work do begin
cs.Enter;
inc(...);
if .. = ... then work=false;
cs.Leave;
if work then begin
//... code code
end;
cs.Enter;
if ... then
for i:=1000 downto 1 do begin
list.addstrings(strings);
for int:=ishem.Count-1 downto 0 do
if Pos(ishem[int], list.Text)>0 then begin
...
cs.Leave;
end;
end;