//┏━━━━━━━━━━━━━━┓
//┃代码着色：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;