[gabrielkc]

el array lo tienes que declarar sin tamaño, para asignar el tamaño usas set length

Código Delphi [-]
 procedure MiProcedimiento;
  var miarreglo:array of integer; 
   x:Byte;
 begin
   SetLength(miarreglo,10);  //redimencionas el arreglo a tamaño 10
   for x:=0 to High(miarreglo) do
    miarreglo[x]:=x;
   {...}
    SetLength(miarreglo,0);//redimencionas el arreglo a tamaño 0
 end;

Los valores que hayas asignado al array se pierden ya que delphi libera las posiciones de memoria asignadas previamente