[Bargest]

Немного оффтоп:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do
  begin
    pot:=Potok.Create(false);
    pot.Priority:=tpNormal;
    pot.FreeOnTerminate:=true;
  end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i: Integer;
begin
  for i:=1 to 2 do pot.Suspend;
end;

оригинально...