var
  mExtend : extended;
  mInteger: Integer;
  mByte   : Byte  ;
begin
  mExtend := 1234.5678;
  mInteger:= round( mExtend ) ;
  mbyte   := round( mExtend ) ;      showMessage( Format( '%f %d %d', [mExtend, mInteger, mbyte] ))
end;