[ecfisa]

Perdón Vales, me confundí al copiar/pegar código.

Debería ser:

Código Delphi [-]
procedure TForm1.btnCargarClick(Sender: TObject);
begin
  with IBQuery2 do
  begin
    Close;
    SQL.Text:= 'SELECT LOCALIDAD FROM CIUDADES ORDER BY LOCALIDAD';
    Open;
    while not Eof do
    begin
      ComboBox1.Items.Add(FieldByName('LOCALIDAD').AsString);
      Next
    end;
    Close
  end;
end;

Saludos.