[:S.p.a.m.]

Я чегото проблемы не понял! Делаю:

Код:

var x:Extended;
    i:integer;
begin
  x:=5.63242;
  i:=Round(x);
  ShowMessage(inttostr(i));
end;

Не ругается и все работает.