Legend of Zelda - Oracle of Seasons, The [GBC]

procedure TForm1.ReadRom(Adress: Integer); //читает блок в память
begin
AssignFile(FRam, 'C:\Rom.gbc');
Reset(FRam);
Seek(FRam, Adress);
BlockRead(FRam, Ram[$4000],$4000);
CloseFile(FRam);
end;

Procedure TileToPic(P: Pointer; W,H,TW,TH,BitCount: Integer; Rev: Boolean = True; Mat: TMatrix = NIL);
var n,m,l,r,ByteCount: Integer; B,WB: ^Byte;
begin
 B:=P;
 Pic.Width:=W*TW;
 Pic.Height:=H*TH;
 ByteCount:=W*BitCount div 8;
 For l:=0 To TH-1 do
 begin
   For r:=0 To TW-1 do
   begin
     For m:=0 To H-1 do
     begin
       Case BitCount of
         4:
         begin
           WB:=Pointer(DWord(Pic.ScanLine[m+l*H])+r*W);
           For n:=0 To ByteCount-1 do
           begin
             If Rev Then WB^:=B^ and $F else WB^:=B^ SHR 4; Inc(WB);
             If Rev Then WB^:=B^ shr 4 else WB^:=B^ AND $F;  Inc(WB); Inc(B);
           end;
           Dec(B,ByteCount);
         end;
         8:  Move(B^,Pointer(DWord(Pic.ScanLine[m+l*H])+r*W)^,W);
       end;
       Inc(B,ByteCount);
     end;
   end;
 end;
end;

Img.Canvas.CopyRect(Bounds(0,0,Pic.Width*Sc,Pic.Height*Sc),Pic.Canvas,Bounds(0,0,Pic.Width,Pic.Height));