Библиотеку написал, метод работает, мидлет обрабатывает "нажатия".
Тестировал на таком коде:
program KeyEmulTest;
uses keyemul;
var
i:integer;
begin
while true do
begin
press(1);
i:=i+1;
drawText(''+getKeyPressed,0,i*10);
repaint;
delay(500);
end;
end.
Для эмуляции нажатия нужно вызвать процедуру
press(key), где
key - код клавиши, из приложенной библиотеки.
Но, как я уже писал, система на это не отреагирует, поскольку эмуляция производится вызовом обработчика
keyPressed главной Canvas.