[Amigo888]

ну как то так :
program NewProject89;
const step = 8;
var
x,y,key,i,j,hi,wi:integer;
pic : image;
begin
y:=0; x:=0;wi:=GetWidth;hi:=GetHeight;
pic:=Loadimage('/tile0.PNG');//Загрузка картинки
i:=GetImageHeight(pic);//Высота картинки
j:=getImageWidth(pic);//Ширина картинки
repeat
key:=KeyToAction(GetKeyPressed);
Delay(30);
if (key = GA_DOWN) and (y-step>=hi-i) then y:=y-step;//Вниз
if (key = GA_UP) and (y+step<=0) then y:=y+step; //Вверх
if (key = GA_RIGHT) and (x-step>=wi-j) then x:=x-step;//В прово
if (key = GA_LEFT) and (x+step<=0) then x:=x+step;// В лево
if key=GA_FIRE then halt;// Выход
DrawImage(pic, x, y);
repaint;
delay(20);//Перерисовка картинки
until false;
end.