Program ksproga;  
var  
chel:image; // Переменная для хранения самого объекта  
X,Y:integer; // Координаты объекта  
Key:integer; // Код нажатой кнопки  
begin  
// Загружаем картинки  
chel:=LoadImage('/icon.png');  

// Задаем начальные координаты объекта  
X:=50;  
Y:=50;  

// Цикл до нажатия на центр джойстика  
while (Key<>GA_FIRE) do  
begin  
//Выводим изображения и обязательно ставим небольшую паузу
setColor(255,255,255);
fillRect(0,0,getWidth, getHeight);  
DrawImage(chel,X,Y);  
repaint;  
Delay(100);  

// Обрабатываем нажатия кнопок и меняем координаты объекта  
Key:=KeyToAction(getKeyPressed);  
if (Key=GA_LEFT) then X:=X-3;  
if (Key=GA_RIGHT) then X:=X+3;  
if (Key=GA_UP) then Y:=Y-3;  
if (Key=GA_DOWN) then Y:=Y+3;  
end;  
end.