Cómo asignar valores a una variable tipo Array

[celades1]

Hola
Suponiendo que los datos los saco de una query que llamaremos consulta

Código Delphi [-]
procedure llenar_array(consulta:tibquery);
var miArreglo : Array of String;
n:integer
begin
n:=0;
while not consulta.eof do begin
SetLength(miArray, n+1);
miArreglo[n] := consulta.fieldbyname('campo').asstring;
inc(n);
consulta.next
end;

end;

No se si eso te sirve pero es como yo las utilizo
Saludos