Na, Gott Sei Dank ist VK_F[x+1] immer gleich VK_Fx + 1, denn wenn sich das mal ändert, oder auf anderen Systemen mal nicht so ist, würde das zu einem wirklich schwer zu findenden Fehler führen.
Ich würde die 'Formel' Key-VK_F1+1 noch in eine separate Funktion packen. Dann ist das noch dokumentiert.
Delphi-Quellcode:
Function VirtualKeyToFunctionNumber (aKey : Cardinal) : Integer;
Begin
Result := aKey - VK_F1 + 1;
End;
Wie immer: Geschmacksache.