program test;
{images взято с http://forum.sources.ru/index.php?showtopic=64755}
uses images,graph;
var s:sprite;
 w,h:word;
 x,y:smallint;
begin
 setsvgamode(1280,800,8,0);
 s:=loadbmp('c:\test.bmp');
 w:=spritewidth(s);
 h:=SpriteHeight(s);
 drawsprite(x,y,s);
 end.