[[coso]]

Pues no mucho, no...

Código Delphi [-]
var
        i : integer;
        num : array of double;
        ti,tf : integer;
begin
        setlength(num,2000000);
        ti := GetTickCount;
        for i := 0 to 1999999 do
        begin
        num[i] := i;
        end;
        tf := GetTickCount;
        ShowMessage(inttostr(tf-ti));
end;

muestra '16', con application.ProcessMessages, '47'