Салом Ramil ты как там дружище все еще ломаешь БФ2. В общем смотри в твоем скрипте нижняя строка это и есть байты через них делаем аобскан, погугли или погуляй по форуму найдешь инфо.
Спасибо, Все работает, код чуть-чуть подправил только) procedure TForm1.Timer1Timer(Sender: TObject);begin if (GetAsyncKeyState(VK_UP) <> 0) then begin // Тут код end;end;