Program graph;
var img: image;
i,key:integer;
Begin
img:=LoadImage('/image.png');
repeat
drawimage(img,0,i);
repaint; delay(10);
key:=keytoaction(getkeypressed);
if key=GA_UP then i:=i-1;
if key=GA_DOWN then i:=i+1;
until false;
End.
Пишу сразу здесь, так что ошибки не исключены. И еще проверь наличие '/image.png' в ресурсах.