To set thread in suspend/resume status, use Suspend/Resume property of TThread type.
<pre>
type
TTestThread = class(TThread)
private
j: Integer;
protected
procedure GetInfo;
procedure Execute; override;
end;
...
var
NewThread: TTestThread;
...
procedure TForm1.Button2Click(Sender: TObject);
begin
NewThread.Resume;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
NewThread.Suspend;
end;
</pre>