Delphi. Есть ли способ удалить из раскрытого Combobox1 пункт, который выделен, но не выбран (по аналогии с Shift+Del)?

 procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if ComboBox1.DroppedDown and (Shift = [ssShift, ssCtrl]) then 
    case Key of 
      vk_delete: ComboBox1.DeleteSelected; 
    end; 
end;