[<<D>>]

Код:

function bool:boolean;
begin
result:=false;
sleep(10);//Любой промежуток в милисекундах
Result:=true;
end;

procedure TForm1.FormClick(Sender: TObject);
var i:integer;
begin
//100 - кол-во шагов
for i:=0 to 100 do
begin

ЗДЕСЬ ТВОЙ КОД!!!!! 

while bool=false do
end;
end;