Здравствуйте, Mckey, Вы писали:

M>Здравствуйте, fml1, Вы писали:

M>Можно еще так попробовать:

M>

M>var
M>  i1:, i2, Res: Int64;

M>begin
M>  i1 := 78242976;
M>  i2 := 554; 
M>  Res := i1 * i2;
M>end;
M>

M>Так вроде прокатывает..

Да спасибо, так прокатило.
Вот что интересно, если переменные отличеются от от int64, то при умножении происходит переполнение

var i1, i2: ULONG;
    Res: int64;
begin
  i1:=78242976;
  i2:=554;
  Res:=i1*i2;
end;