on keypress

[s-off]

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = VK_F1 then
      ShowMessage('F1 wurde gedrückt')
   else if Key = VK_F2 then
      ShowMessage('F2 wurde gedrückt');
end;

Edit: VK_Fx ist der virtuelle Tastencode. Mehr dazu in der Delphi Hilfe.