How to simulate key down under Delphi FMX

 how to simulate key down

  var Key: Word;  KeyChar: Char;

 begin

   // under FMX how to simulate key down

    // input '-' to Edit1

    Edit1.SetFocus;

    key:=0;

    KeyChar:='-';

    if Assigned(Focused) then

       Focused.KeyDown(Key, KeyChar, []);

    // input '-' to TNumberBox

    NumberBox1.SetFocus;

    key:=0;

    KeyChar:='-';

    NumberBox1.SelectAll;  // in order to replace current value 0

    if Assigned(Focused) then

       Focused.KeyDown(Key, KeyChar, []);

//    // Click / press CornerButton3

//    CornerButton3.SetFocus;

//    key:=vkReturn;

//    KeyChar:=#0;

//    if Assigned(Focused) then

//       Focused.KeyDown(Key, KeyChar, []);