Busqueda incremental en un Edit

[ecfisa]

Hola.

Si deseas que ademas de eliminarse los items también se repliegue el ComboBox, sería:

Código Delphi [-]
procedure TForm1.ComboBox1Exit(Sender: TObject);
begin
  with Sender as TComboBox do
  begin
    Items.Clear;
    Height:= CBOX_HEIGHT;
  end;
end;

Saludos.