Delphi - Números muy grandes (billones)

Necesito ayuda. Estoy intentando multiplicar 160 *256 *256 * 256 y el resultado obtenido es un número negativo y no es el correcto (2.701.131.776).

Sabeís como puedo conseguir la operación matemática correcta ? luego tengo que comparar dicho resultado con otro número también expresado en billones.

Muchas gracias
Javi.

El resultado correcto es 2.684.354.560

Prueba a ir multiplicando primero los dos pirmeros, el resultado por el tercero y el resultado anterior por el cuarto.

Mejor te lo pongo aquí.

procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, d: integer;
Total: extended;
begin
a := StrToInt(Edit1.Text);
b := StrToInt(Edit2.Text);
c := StrToInt(Edit3.Text);
d := StrToInt(Edit4.Text);
Total := a * b;
Total := Total * c;
Total := Total * d;
ShowMessage(FormatFloat('###,###,###,###,###,###',Total));
end;

Esto funciona correctamente y da 2.684.354.560