[ecfisa]

Hola de nuevo.

Olvidé mencionarte que cuando las teclas a evaluar son muchas es más simple hacerlo de este modo:

Código Delphi [-]
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  case Key of
   VK_F1: Button1.Click;
   VK_F2: Button2.Click;
   VK_F3: Button3.Click;
   ...
  end;
end;

Saludos.