[zonderz]

LilLoco,

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

var b: boolean;

procedure Form.OnCreate;
begin
Timer.Interval:= 100;
Timer1.enabled:= true;
b:= false;
end;

procedure ButtonClick;
begin
Thread1.Create;
end;


procedure Timer.OnTimer;
begin
if b = True then
begin
Thread2.Create;
Timer1.enabled:= false;
end;
end;


procedure Thread1;
begin
...
...
...
...
b:= true;
end;

procedure Thread2;
begin
...
...
b:= false
end;



надеючь у вас Delphi World скачан..?