[Chip]

В эмуляторе работает без проблем нет никаких пересечений с курсором(джойстоком), ставлю на телефон нажимаю 2,4,5,6,8 они дублируют курсор. Где косяк? Писал функцию специально для одного нажатия клавиши без повторов.

Function keyboard:String;
var
KEY,CUR_KEY:Integer;
begin
KEY:=getKeyClicked ;
CUR_KEY:=keyToAction(KEY);

if (CUR_KEY<>GA_NONE) or (getKeyPressed <> KE_NONE) then
begin
if KEY = KE_KEY0 then keyboard :=('0');
if KEY = KE_KEY1 then keyboard :=('1');
if KEY = KE_KEY2 then keyboard :=('2');
if KEY = KE_KEY3 then keyboard :=('3');
if KEY = KE_KEY4 then keyboard :=('4');
if KEY = KE_KEY5 then keyboard :=('5');
if KEY = KE_KEY6 then keyboard :=('6');
if KEY = KE_KEY7 then keyboard :=('7');
if KEY = KE_KEY8 then keyboard :=('8');
if KEY = KE_KEY9 then keyboard :=('9');
if KEY = KE_STAR then keyboard :=('.');
if KEY = KE_POUND then keyboard :=('C' );
if CUR_KEY = GA_UP then keyboard :=('*');
if CUR_KEY = GA_DOWN then keyboard :=(':');
if CUR_KEY = GA_LEFT then keyboard :=('-');
if CUR_KEY = GA_RIGHT then keyboard :=('+');
if CUR_KEY = GA_FIRE then keyboard :=('=');
end;
end;