[[Caral]]

Hola
Casi me la juego :

Código Delphi [-]
DM.Q_loc.SQL.text:= 'select DISTINCT LOCALIDAD from LOCALIDADES';
DM.Q_loc.Open;
while not DM.Q_loc.Eof do
  begin
    loc_cons_inst.Items.Add(DM.Q_loc.FieldByName('LOCALIDAD').AsString);
    DM.Q_loc.Next;
  end;

Saludos