//┏━━━━━━━━━━━━━━┓
//┃代码着色：CodeColor v1.0 ┃
//┃来自：悄然无声的 Blog ┃
//┗━━━━━━━━━━━━━━┛
var
b:boolean;
procedure TForm1.Button1Click(Sender: TObject);
begin
b:=true;
while(b) do
begin
Caption:='Working';
Application.ProcessMessages;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
b:=false;
Caption:='Stop';
end;
