const Cnt: double = 7.26; var a: longword; begin a:=Trunc(133584); ShowMessage(IntToHex(a,8)); a:=Trunc(18400 * Cnt); ShowMessage(IntToHex(a,8)); end;