Как запустить через горячую клавишу (одну) DialogFind не используя Ctrl+F, через какую процедуру?

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
 Shift: TShiftState);
begin
  if  key=vk_F3 then "Execute DialogFind"
end;

что то в этом роде

??????