[pesi]

или так

Код:

var
  n:extended;
  i:integer;
begin
  n:=1199.009;
  i:=1;
while n<=1200.832 do
  begin
  inc(i);//тут твои действия
  n:=n+0.01;
  end;
 showmessage(inttostr(i));
end;