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.