[[Caral]]

Hola
Segura que no va este ?:

Código Delphi [-]
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select LOCALIDAD from LOCALIDADES ORDER BY LOCALIDAD');
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;

Prueba este:

Código Delphi [-]
DM.Q_loc.SQL.Clear;
DM.Q_loc.SQL.Add('select 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