Combobox

[ecfisa]

Hola.

Se me ocurre que podrías simplificar con un Edit y un DBgrid.

.-En el DBGrid->Options pone a False dgIndicator y dgRowLines.
.-Poné el Edit sobre el título del DBGrid de forma que lo cubra totalmente.
.-Cambia el color del DBGrid para diferenciar.

Luego poné por ejemplo, algo como esto en el evento OnChange del Edit:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM PRUEBA WHERE CAMPO LIKE '+
     QuotedStr(Edit1.Text+'%');
  Query1.Open;
  if Query1.isEmpty and
   (MessageDlg('¿ Agrega '+Edit1.Text+' ?',mtConfirmation,[mbYes,mbNo],0)=mrYes)then
  begin
    Query1.Close;
    Query1.SQL.Text:='INSERT INTO PRUEBA(CAMPO) VALUES(:CAMPO)';
    Query1.Params.ParamByName('CAMPO').AsString:= Edit1.Text;
    Query1.ExecSQL;
    Query1.Close;
    Query1.SQL.Text:= 'SELECT CAMPO FROM PRUEBA ORDER BY CAMPO';
    Query1.Open;
  end
end;

Da el aspecto de un ComboBox desplegado y realiza la función que creo que buscas.

Un saludo.