您好，怎样使程序按任意键暂停，又按任意键恢复运行 ？ 谢谢(20分)

如题

这个容易呀，设置一个全局布尔型变量A。
在窗体的按键事件设 a:= not a;
在程序循环体里动态将a作为继续的条件。
还有，循环体里必须有足够的application.procxxxxxxx()
[具体怎么拼忘记了。]
使操作系统能够处理一些事件。

procedure TForm1.Button1Click(Sender: TObject);
begin
f:=true;
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
t:integer;
begin
t:=0;
f:=false;
while t<10000000 do
begin
if f then exit;
inc(t);
form1.caption:=inttostr(t);
application.ProcessMessages;
end;
end;

很简单。
var fPause: boolean;

Procedure StartButtonClick(Sender: TObject);
var i: integer;
begin
i:=0;
fPause:=false; //暂停
while not fStop then
begin
inc(i);
label1.caption:=inttostr(i);
application.processmessage;
end;
end;


procedure PauseButton(Sender: TObject);
begin
fPause:=true;
end;

多人接受答案了。