Создай проект и кинь туда этот код , я думаю дальше можешь сам продолжить
program Ball;
var
img : image;
x,y,key : integer;
begin
img:=loadimage('/icon.png'); //загрузить изображение
setcolor(255,255,0); //установить цвет фона (R,G,
x:=((GetWidth/2)-(GetImageWidth(img)/2)); // центруем позицую изображения по горизонтали
y:=((GetHeight/2)-(GetImageHeight(img)/2));// центруем позицую изображения по вертикали
repeat
key:=KeyToAction(GetKeyPressed); // читаем нажатие джойстика
if key = GA_UP then y := y - 1; // смотрим какая клавиша нажата
if key = GA_DOWN then y := y + 1; // изменяем оси х,у
if key = GA_LEFT then x := x - 1; // в зависимости от нажатой клавиши
if key = GA_RIGHT then x := x + 1;
FillRect(0, 0, GetWidth, GetHeight); // заливка экрана ранее выбраным цветом
DrawImage(img, x, y); // перерисовать изображение с новыми координатами
Repaint; // вывести на экран
until key = GA_FIRE; // если нажата кнопкп Fire то завершить
end.