program test;
{images взято с http://forum.sources.ru/index.php?showtopic=64755}
uses images,graph,mouse;
var s:sprite;
 w,h:word;
 x,y:smallint;
 gb,gm:integer;
 r:char;
begin
 SetGraphMode($101);
 InitMouse;
 showmouse; 
 s:=loadbmp('c:\test.bmp');
 w:=spritewidth(s);
 h:=SpriteHeight(s);
 drawsprite(x,y,s);
 read(r);
 while r<>'q' do begin
  closegraph;
  SetGraphMode($101);
  drawsprite(x,y,s);
  read(r);
  end;
 end.