[ecfisa]

Hola José.

Podés usar arreglos dinámicos.

Código Delphi [-]
var
  v: array of integer;
  i: Integer;
begin
  SetLength(v,500);
  for i:= Low(v) to High(v) do v[i]:= i;
end;

Saludos.