case-Konstrukt vereinfachen - Zahl aus VK_Fx ermitteln

[Helmi]

Hallo,

kann man dieses case-Konstrukt etwas vereinfachen?

Delphi-Quellcode:

      case Key of
        VK_F1:  begin
                  MSGButton_click(1);
                end;
        VK_F2:  begin
                  MSGButton_click(2);
                end;
        VK_F3:  begin
                  MSGButton_click(3);
                end;
        VK_F4:  begin
                  MSGButton_click(4);
                end;
        VK_F5:  begin
                  MSGButton_click(5);
                end;
        VK_F6:  begin
                  MSGButton_click(6);
                end;
        VK_F7:  begin
                  MSGButton_click(7);
                end;
        VK_F8:  begin
                  MSGButton_click(8);
                end;
        VK_F9:  begin
                  MSGButton_click(9);
                end;
        VK_F10: begin
                  MSGButton_click(10);
                end;
      end;

ich hätt gern etwas in dieser Art:

Delphi-Quellcode:

      case Key of
        VK_F1..VK_F10:  begin
                          MSGButton_click(<Nummer der F-Taste>);
                        end;

Nur dazu müsste ich an die Zahl hinter "VK_F" rankommen