Листинг 2

procedure CreateSprite(s:string; x,y,dx,dy:integer);
                                 {«создание» спрайта}
var
    f : file;	{файл с изображением спрайта}
begin
    getmem(Sprt.Img,sizeof(SpriteArrayType));
		{выделяем память для спрайта}
    getmem(Sprt.Back,sizeof(SpriteArrayType));
		{выделяем память для буфера}
    Readbmp(@(Sprt.Img^),Xsize,Ysize,@p,s); Sprt.x := x;
    Sprt.y := y;	{задаем начальные значения}
    Sprt.dx := dx;	{координат и приращений}
    Sprt.dy := dy;
end;