procedure TForm1.FormCreate(Sender: TObject);
begin
KeyPreview := True
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ActiveControl is TPageControl then
case Key of
VK_F1 : ShowMessage('Tecla F1 presionada');
VK_F12: ShowMessage('Tecla F12 presionada');
end
end;