procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ShortCut(Key,shift)=TextToShortCut('F2') then
...;
end;
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if ShortCut(Key,shift)=TextToShortCut('F2') then
...;
end;