[SedmoiDemon]

Код:

function realtoint( x: real ): integer;
begin
result:= strtoint( floattostr( round( x ) ) );
end;

может поможет?

Aristarh Dark: Читай в справке как правильно использовать тэги