[marcoszorrilla]

Código Delphi [-]
procedure TPacientes.ConsultaShow(Sender: TObject); begin
DM.Q_loc.Close;
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;

Un Saludo.