Agregar elementos a un DBcomboBox (runtime)

[[Lepe]]

Dicho de otra forma:

Código Delphi [-]
procedure Tform1.Combo1KeyUp(var key:word....);
var q:Tquery;
begin

  if key = vk_return then // si pulsa intro chequeamos si existe
   if combo1.items.indexof(combo1.text)  = -1 then // no existe
   begin
      q := Tquery.Create(nil);
     try 
      q.DatabaseName := como se llame...
      q.Database := MiDatabase;
      q.sql.text := ' insert into mitabla (Ciudad) values ('+ quotedstr(combo1.text)+ ');';
      q.ExecSql; // elemento añadido a la tabla de ciudades
    finally
       freeandnil(q);
    end;
  end;

Saludos