[y_a_p]

Hola a todos, estoy haciendo un sistema para un consultorio pediatrico con delphi 7, BD SQL Manager 2008 y motor Firebird, en la parte de la consulta necesito pasar a un combobox el campo de una tabla ajena a paciente, va en realidad estan relacionadas, la tabla es localidad y lo logre, pero los campos se repiten por lo tantome han proporcionado aqui una ayuda, la cual agradezco q dice q tengo q agrupar los campos por el nombre de dicha localidad pero me tira un error de id, el cod. es el siguiente:

Código Delphi [-]
procedure TPacientes.ConsultaShow(Sender: TObject);
begin
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES GROUP BY LOCALIDAD');
DM.Q_loc.Open;
while not DM.Q_loc.Eof do  // a lo que entiendo es mientras el query no haya llegado al ultimo registro
  begin
    loc_cons_pac.Items.Add(DM.Q_loc.Fields[2].Text); //le asigna a items del combo el texto que existe en el campo 2 (en ntro caso, nom_localidad esta en posicion 2, xq id_loc(0), cod_postal(1) fijate en BD)
    DM.Q_loc.Next; // pasa al siguiente registro
  end;

DMata_module.
Q_loc:es el query de la tabla localidad.

El error me tira cuando abro la consulta...

Agradezco su ayuda!!!, Gracias...