redimensionar varias veces un array

[Manuel]

Hola amigos del club, por favor si me pueden ayudar con este problema que se presento, tengo lo siguiente, un array dinámico el cual lo dimensiono de la siguiente manera:

Código Delphi [-]
procedure calcular;
var
   Numeros: array of double;
   largo, i: integer;
begin
    i:=i;
    while i < 6 do
       begin
            SetLength(Numeros,i); 
            carga_datos(numeros);
            inc(i);
       end;
end;

Delphi 7 me acusa error de violación de memoria cuando al hacer por segunda vez el

Código Delphi [-]
SetLength(Numeros,i);

en el array numeros, como se puede hacer para redimensionar varias veces sin que se produzca el error?