[ALexandr555]

ну в общем так

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
case i of
0:SuspendProcess(GetProcessID(Edit1.Text));
4:
 begin
  ResumeProcess(GetProcessID(Edit1.Text));
  i:=0;
  exit;
 end;
end;
inc(i);
end;

сделал