var i : integer; begin for i:=0 to 9999999 do begin {Voer de lus uit} Label1.Caption:=IntToStr(i);////計時 Label2.Caption:=IntToStr(999-I);//倒數計時 {Verwerk de messages van Windows} Application.ProcessMessages; {Als ESC 置於break 按ESC 中止 } if GetKeyState(VK_Escape) and 128 =128 then break; end; end;
----------------------------------------------