[[coso]]

Hola, puedes probar de generar un array dinamico y luego darle el tamaño conveniente :

Código Delphi [-]
var
        i : integer;
        num : array of double;
begin
        setlength(num,2000000);
        for i := 0 to length(num) - 1 do
        begin
        Label1.Caption := inttostr(i);
        num[i] := random(100000);
        Application.ProcessMessages;
        end;
end;

ten en cuenta por eso que 2000000 de doubles es mucha memoria. Es mas que probable que muchas veces no la encuentre.