Как можно отменить реакию ComboBox на F4?

procedure TForm1.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_F4 then key:=0;  
end; 

Автор ответа: Vit
Взято с Vingrad.ru