LongInt zu kurz | array multiplizieren ?

[roboter202]

Hallo,

ich möchte die Zahlenfolge 1,2,4,8,16,32,64,128,256 ... bis zur Zahl 9.999.999.999.999 generieren und in einer Listbox ausgeben das Problem ist das diese Zahl zu lang/groß für einen integer oder longint ist also habe ich an einen Array array [1..13] of Integer gedacht wo ich dann die Zahl Ziffer für Ziffer speichere

Bis jetzt hab ich

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i :longint;
begin
i := 1 ;
While i < 9999999999999 do
begin
Listbox1.Items.Add(inttostr(i));
i := i * 2 ;
Listbox1.Refresh ;
If i = 0 then
begin
showmessage('error');
exit ;
end;
end;
end;

mein Problem ist einen Integer kann ich mit 2 Multiplizieren wie mache ich das mit einem Array

Gruß Chrstian