Pasar Datos de una Consulta SQL a un array

[webmasterplc]

Buenas tengo una duda como pasar los datos de una consulta a un array esta es mi consulta

Código Delphi [-]
begin
Datos.sqdmiembros.Close;
datos.sqdmiembros.Sql.Text := 'SELECT * FROM vmiembros'+'   WHERE gf_nombre='+QuotedStr(edtgf.Text);
Datos.sqdmiembros.Open;
      etlider.Caption:=Datos.sqgrupo.fieldByname ('lid_nombre').AsString;
      etzona.Caption:=Datos.sqgrupo.fieldByname ('zon_id').AsString;

end;

Por ejemplo alli paso los datos lider a una etiqueta pero me interesa extraer a un array el numero de telefono el campo se llama 'mien_celular', y el nombre de la persona e campo se llama 'miem_nombre' .

Código Delphi [-]
var
i,registros:Integer;
contactos: array of string;

begin
registros:=2;

SetLength( contactos, registros );
contactos [0]:='584128696261';
contactos [1]:='584262828527';

Aqui le asigne datos manuales y solo el contacto