лови примерно так)))
uses canvas;
Var
x,y, xi, yi,xs, ys, xs1, ys1, state, i,w,h,vibor: integer;
im: image;
youimage: array [1..5] of image;
Begin
w:=getwidth;h:=getheight;
xi:=w;
yi:=h;
xs:=GetWidth;
ys:=GetHeight;
xs1:=GetStringWidth('вверх');
ys1:=GetStringHeight('вверх');
vibor:=1;
for i:=1 to 5 do
begin
im:=LoadImage('/'+i+'.png');
youimage[i]:=canvas.resize_image(im,w,h);
end;
repeat
state:=GetKeyClicked;
if (state=KE_KEY2) or (state=-6) then if vibor>1 then vibor:=vibor-1;
if (state=KE_KEY8) or (state=-7) then if vibor<5 then vibor:=vibor+1;
DrawImage(youimage[vibor],0,0);
SetColor(0, 0, 255);
FillRect(xs-xs1,ys-ys1,xs1,ys1); FillRect(0,ys-ys1,xs1,ys1);
SetColor(0, 255, 0);
DrawText('вверх',xs-xs1+5,ys-ys1);
DrawText('вниз',0,ys-ys1);
Repaint;
Delay(20);
setcolor(255,255,255);
FillRect(0,0,xs,ys);
until false;
End.
картинки 1.png 2.png ... 5.png