我希望在跑迴圈時，Label3的值可以改變，且BitBtn2和BitBtn3可以按，請問改怎麼改程式呢?
現在的程式Label3的值在跑完迴圈時才會改變，且在跑迴圈時BitBtn2和BitBtn3是不能按的。
[code delphi]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
I : Integer;
begin
IF TBitBtn(Sender).Tag = 1 then
Begin

BitBtn2.Enabled := True;
BitBtn3.Enabled := True;

for I:= 0 TO 100 Do
Begin
Label3.Caption := IntToStr(I);
sleep(100);
End;
End


end;

procedure TForm1.FormCreate(Sender: TObject);
begin
BitBtn2.Enabled := False;
BitBtn3.Enabled := False;
end;
[/code]

附加檔案：47668528211d1_test.rar

1.你希望迴圈中可以跳脫控制執行其他功能, 請加入紅色的部份就可以了
===================引 用 lee5100954 文 章===================
for I:= 0 TO 100 Do
Begin
Application.ProcessMessages;
Label3.Caption := IntToStr(I);
sleep(100);
End;
End