Hola sionks, cada vez que se haga la consulta tienes que llenar nuevamente el combo con el nuevo resultado de dicha consulta.
Código Delphi
[-]
procedure TFMain.CBClienteKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var i:Integer;
palabras: TStringList;
consulta: String;
begin if CBCliente.Text = '' then begin CBCliente.Clear; consulta:='Select Nombre from Clientes';
Clientes.close;
Clientes.sql.clear;
Clientes.sql.add(consulta);
Clientes.open;
end else begin palabras := TStringList.Create; palabras.CommaText := CBCliente.Text; Clientes.close; Clientes.sql.clear; for i:=0 to palabras.Count-1 do begin consulta:=consulta+'and Nombre like "%'+palabras.Strings[i]+'%"';
end;
Delete(consulta,1,3);
consulta:='Select Nombre from Clientes where'+consulta;
Clientes.SQL.Add(consulta);
Clientes.Open;
end;
CBCliente.Items.Clear; Clientes.First;
While not Clientes.Eof do
begin
CBCliente.Items.Add(Clientes.FieldByName('CAMPO').AsString);
Clientes.Next;
end;
end;