24-12-2008, 03:23 PM
اضافة For الى طريقة Rover .
كل حلقة تستغرق 1 ثانية . عند الانتهاء من 5 حلقات يتم تلوين الفورم . 
PHP كود :
var
I:integer;
begin
for I:= 0 to 4 do
Sleep (1000);
Form1.Color:=Clred;
end;