ESP32FORTH-Fkeys

procedure TMyFFshell.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin

   // Test 241210 catch F0...F12 key presses and return $F0..$FC
  case word(Key) of
    VK_F1:   Comport1.WriteStr(char($F1))  ;
    VK_F2:   Comport1.WriteStr(char($F2))  ;
    VK_F3:   Comport1.WriteStr(char($F3))  ;
    VK_F4:   Comport1.WriteStr(char($F4))  ;
    VK_F5:   Comport1.WriteStr(char($F5))  ;
    VK_F6:   Comport1.WriteStr(char($F6))  ;
    VK_F7:   Comport1.WriteStr(char($F7))  ;
    VK_F8:   Comport1.WriteStr(char($F8))  ;
    VK_F9:   Comport1.WriteStr(char($F9))  ;
    VK_F10:  Comport1.WriteStr(char($FA))  ;
    VK_F11:  Comport1.WriteStr(char($FB))  ;
    VK_F12:  Comport1.WriteStr(char($FC))  ;

  end;

end;