Исправьте программу пожалуйсто. Неправильно рисует форму

unit Unit1;
//Игра Сокобан
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ImgList, Menus;
 
type
  TForm1 = class(TForm)
    il1: TImageList;
    dlgOpen1: TOpenDialog;
    imgScreen: TImage;
    imgBackBuffer: TImage;
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject;var Key:Word;Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
 wall=8;
 space=0;
 boulder=2;
 place=1;
 placedboulder=3;
 sl=6;
 sr=7;
 su=4;
 sd=5;
var
  Form1: TForm1;
  Field:array[1..20,1..12] of integer; //Игровое поле
  Places:array[1..20,1..12] of Boolean; //Положение мест
  N_of_places:integer; //Общее число мест на уровне
  CurX:integer; //Текущее положение
  CurY:integer; //Сокобана
  Positioned:integer; //Количество размещённых камней
  Busy:Boolean=false;//Статус обработчика клавиш
implementation
 
{$R *.dfm}
 
procedure TForm1.N3Click(Sender: TObject);
begin
application.Terminate;
end;
 
function SymbolToCode(c:Char):integer; //Перевод символа в порядковый номер картинки
begin
 case c of
  'x':SymbolToCode:=WALL; //'x' - стена
  ' ':SymbolToCode:=SPACE; //' ' - пустое пространство
  'b':SymbolToCode:=BOULDER; //' ' - камень
  's':SymbolToCode:=Sl; //'s' - стартовая локация
 else
  SymbolToCode:=-1; //Неизвестный символ
end;
end;
procedure LoadLevel(FileName:string); //Загрузить уровень из файла
var
 f:textfile;
 i,j:integer;
 c:char;
begin
 AssignFile(f,FileName);
 Reset(f);
 N_of_places:=0;
 for j:=1 to 12 do
 begin
  for i:=1 to 20 do
  begin
   Read(f,c);
   if c='p' then  //Если это "место"
   begin
    Field[i,j]:=0; //В поле равнозначно пустому элементу
    Places[i,j]:=true;
    N_of_places:=N_of_places + 1;
   end
   else
   begin
    Places[i,j]:=false;
    Field[i,j]:=SymbolToCode(c);
    if c='s' then
    begin
     CurX:=i;
     CurY:=j;
    end;
   end;
  end;
  Read(f,c);
  Read(f,c);
 end;
 Closefile(f);
end;
procedure RedrawField; //Перерисовка уровня
var
 i,j:integer;
 code:Integer;
 bitmap:TBitmap;
begin
 bitmap:=TBitmap.Create; //Объект для временного хранения рисунка
 Positioned:=0; //Считаем что размещено 0 камней
 for i:=1 to 12 do
  for j:=1 to 20 do
  begin
   code:=field[i,j]; //Код текущего элемента
   if (Field[i,j]=SPACE) and Places[i,j] then
    code:=place
   else
   if (field[i,j]=boulder) and Places[i,j] then
   begin
    code:=placedboulder;
    Positioned:=Positioned+1; //При этом увеличиваем счётчик размещённых камней
   end;
   Form1.il1.GetBitmap(code,bitmap); //Достаём картинку и рисуем её на соответсвующем
   Form1.imgBackBuffer.Canvas.Draw((j-1)*32,(i-1)*32,bitmap); //месте виртуального экрана
  end;
 bitmap.Free;
 {Копируем содержимое виртуального экрана на основной}
 Form1.imgScreen.Canvas.CopyRect(Rect(0,0,640,384),Form1.imgBackBuffer.Canvas,Rect(0,0,640,384));
end;
procedure TForm1.N2Click(Sender: TObject);
begin
if dlgopen1.Execute then
 begin
  LoadLevel(dlgOpen1.Filename);
  RedrawField;
 end;
end;
procedure TForm1.FormKeyDown(Sender:TObject;var key:Word;Shift:TShiftState);
var
 dx,dy:integer;
 Spridx:integer;
begin
 if Busy then
 exit;
 Busy:=true;
 case key of
  VK_LEFT: //Идём влево
  begin
   dx:=-1;
   dy:=0;
   Spridx:=sl;
  end;
  VK_RIGHT:
  begin
   dx:=1;
   dy:=0;
   Spridx:=sr;
  end;
  VK_UP:
  begin
   dx:=0;
   dy:=-1;
   Spridx:=su;
  end;
  VK_DOWN:
  begin
   dx:=0;
   dy:=1;
   Spridx:=sd;
  end;
 else
 begin   //Никуда не идём
  dx:=0;
  dy:=0;
  Spridx:=Field[CurX,CurY];
 end;
 if Field[CurX+dx,CurY+dy]=SPACE then //Если целевая клетка пуста
 begin
  Field[CurX+dx,Cury+dy]:=Spridx; //Переходим в неё
  Field[CurX,CurY]:=space; //На старой позиции теперь ничего нет
  CurX:=CurX+dx;
  CurY:=CurY+dy;
 end
 else
 if (Field[CurX+dx,CurY+dy]=BOULDER) and (Field[CurX+2*dx,CurY+2*dy]=SPACE) then
 begin
  Field[CurX+dx,CurY+dy]:=Spridx;
  Field[CurX+2*dx,CurY+2*dy]:=BOULDER;
  Field[CurX,CurY]:=SPACE;
  CurX:=CurX+dx;
  CurY:=CurY+dy;
 end;
 RedrawField; //Перерисовываем уровень
 //Если все камни размещены
 if Positioned=N_of_places then
  Application.MessageBox('Уровень пройден!','Sokoban',MB_ICONEXCLAMATION);
 Application.ProcessMessages;
 Busy:=false; //Статус = свободно
 end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
 while not dlgOpen1.Execute do
  LoadLevel(dlgOpen1.FileName);
 RedrawField;
end;
end.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i:Integer;
  ar: array of integer;
  st: TFileStream;
begin
SetLength(ar,5);
 
ar[0]:=12345;
ar[1]:=2222222;
ar[2]:=55555;
ar[3]:=777777;
ar[4]:=88888;
 
st:=TFileStream.Create( '1.txt', fmCreate);
st.Position:=0;
st.Write(Ar,20);
st.Free;
st:=TFileStream.Create( '1.txt', fmOpenRead );
st.Position:=0;
st.Read(Ar,20);
st.Free;
for i:=0 to 4 do Listbox1.Items.Add(IntToStr(ar[i]));
end;

Var
LayerTXT:TStringList;

LayerTXT:= TStringList.Create;//Создаём список

LayerTXT.LoafFromFile(Name);//Загружаем в список текстовый файл

for Y_:=1 to H do begin 
 for X_:=1 to W do  begin  
   //Получаем код тайла 
   s:=  sps[X_,Y_];
   //Координаты вывода на игровое поле.
   X:= X_ * T - T;
   Y:= Y_ * T - T;
   //> Здесь рисование тайла с кодом s в координаты X  Y
end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ImgList, Menus;
 
type
  TForm1 = class(TForm)
    il1: TImageList;
    dlgOpen1: TOpenDialog;
    imgScreen: TImage;
    imgBackBuffer: TImage;
    mm1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    procedure N3Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure FormKeyDown(Sender: TObject;var Key:Word;Shift: TShiftState);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
const
 wall=8;
 space=0;
 boulder=2;
 place=1;
 placedboulder=3;
 sl=6;
 sr=7;
 su=4;
 sd=5;
var
  Form1: TForm1;
  Field:array[1..12,1..20] of integer; //Игровое поле
  Places:array[1..12,1..20] of Boolean; //Положение мест
  N_of_places:integer; //Общее число мест на уровне
  CurX:integer; //Текущее положение
  CurY:integer; //Сокобана
  Positioned:integer; //Количество размещённых камней
  Busy:Boolean;//Статус обработчика клавиш
implementation
 
{$R *.dfm}
 
procedure TForm1.N3Click(Sender: TObject);
begin
application.Terminate;
end;
 
function SymbolToCode(c:Char):integer; //Перевод символа в порядковый номер картинки
begin
 case c of
  'x':SymbolToCode:=WALL; //'x' - стена
  ' ':SymbolToCode:=SPACE; //' ' - пустое пространство
  'b':SymbolToCode:=BOULDER; //' ' - камень
  's':SymbolToCode:=Sl; //'s' - стартовая локация
  'p':SymbolToCode:=Placedboulder; //'p' - место для камня
 else
  SymbolToCode:=-1; //Неизвестный символ
 end;
end;
procedure LoadLevel(FileName:string); //Загрузить уровень из файла
var
 f:textfile;
 i,j:integer;
 c:char;
begin
 AssignFile(f,'Filename.txt');
 Reset(f);
 N_of_places:=0;
 for i:=1 to 12 do
 begin
  for j:=1 to 20 do
  begin
   Read(f,c);
   if c='p' then  //Если это "место"
   begin
    Field[i,j]:=0; //В поле равнозначно пустому элементу
    Places[i,j]:=true;
    N_of_places:=N_of_places+1;
   end
   else
   begin
    Places[i,j]:=false;
    Field[i,j]:=SymbolToCode(c);
    if c='s' then
    begin
     CurX:=i;
     CurY:=j;
    end;
   end;
  end;
  Readln(f);
 end;
 Closefile(f);
end;
procedure RedrawField; //Перерисовка уровня
var
 i,j:integer;
 code:Integer;
 bitmap:TBitmap;
begin
 bitmap:=TBitmap.Create; //Объект для временного хранения рисунка
 Positioned:=0; //Считаем что размещено 0 камней
 for i:=1 to 12 do
  for j:=1 to 20 do
  begin
   code:=field[i,j]; //Код текущего элемента
   if (Field[i,j]=SPACE) and Places[i,j] then
    code:=place
   else
   if (field[i,j]=boulder) and Places[i,j] then
   begin
    code:=placedboulder;
    Positioned:=Positioned+1; //При этом увеличиваем счётчик размещённых камней
   end;
   Form1.il1.GetBitmap(code,bitmap); //Достаём картинку и рисуем её на соответсвующем
   Form1.imgBackBuffer.Canvas.Draw((j-1)*32,(i-1)*32,bitmap); //месте виртуального экрана
  end;
 bitmap.Free;
 {Копируем содержимое виртуального экрана на основной}
 Form1.imgScreen.Canvas.CopyRect(Rect(0,0,640,384),Form1.imgBackBuffer.Canvas,Rect(0,0,640,384));
end;
procedure TForm1.N2Click(Sender: TObject);
begin
if dlgopen1.Execute then
 begin
  LoadLevel(dlgOpen1.Filename);
  RedrawField;
 end;
end;
procedure TForm1.FormKeyDown(Sender:TObject;var key:Word;Shift:TShiftState);
var
 dx,dy:integer;
 Spridx:integer;
begin
 Busy:=false;
 if Busy then
 exit;
 Busy:=true;
 if Busy then
 begin
 if key=ord('W') then
  begin
   dx:=-1;
   dy:=0;
   Spridx:=su;
  end;
 if key=Ord('S') then
  begin
   dx:=1;
   dy:=0;
   Spridx:=sd;
  end;
 if key=Ord('A') then
  begin
   dx:=0;
   dy:=-1;
   Spridx:=sl;
  end;
 if Key=Ord('D') then
  begin
   dx:=0;
   dy:=1;
   Spridx:=sr;
  end;
 end
 else
 begin   //Никуда не идём
  dx:=0;
  dy:=0;
  Spridx:=Field[CurX,CurY];
 end;
 if Field[CurX+dx,CurY+dy]=SPACE then //Если целевая клетка пуста
 begin
  Field[CurX+dx,Cury+dy]:=Spridx; //Переходим в неё
  Field[CurX,CurY]:=space; //На старой позиции теперь ничего нет
  CurX:=CurX+dx;
  CurY:=CurY+dy;
 end
 else
 if (Field[CurX+dx,CurY+dy]=BOULDER) and (Field[CurX+2*dx,CurY+2*dy]=SPACE) then
 begin
  Field[CurX+dx,CurY+dy]:=Spridx;
  Field[CurX+2*dx,CurY+2*dy]:=BOULDER;
  Field[CurX,CurY]:=SPACE;
  CurX:=CurX+dx;
  CurY:=CurY+dy;
 end;
 RedrawField;
 //Перерисовываем уровень, если все камни размещены
 if Positioned=N_of_places then
  Application.MessageBox('Уровень пройден!','Sokoban',MB_ICONEXCLAMATION);
 Application.ProcessMessages; //Отражает результат действия уже выполненных операторов
 Busy:=false; //Статус = свободно
end;
procedure TForm1.FormShow(Sender: TObject);
begin
 while not dlgOpen1.Execute do
  LoadLevel(dlgOpen1.FileName);
 RedrawField;
end;
end.

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
  i:Integer;
  ar: array of integer;
  rr: array of integer;
  st: TMemoryStream;
 
begin
 SetLength(ar,5);
 ar[0]:=1;
 ar[1]:=2;
 ar[2]:=3;
 ar[3]:=4;
 ar[4]:=5;
 
 st:=TMemoryStream.Create;
 st.Position:=0;
 st.Write(Ar[0],20);
 st.SaveToFile('1.txt');
 st.Free;
 
 SetLength(rr,5);
 
 st:=TMemoryStream.Create;
 st.Position:=0;
 st.LoadFromfile('1.txt');
 
 st.Read(rr[0],20);
 for i:=0 to 4 do ListBox1.Items.Add(IntToStr(rr[i]));
 
 st.Free;
end;

Busy:=false;
 if Busy then
 exit;

if Busy then
    begin
       if key=ord('W') then
           begin
              dx:=-1;
              dy:=0;
              Spridx:=su;
           end;
       if key=Ord('S') then
           begin
           dx:=1;
           dy:=0;
           Spridx:=sd;
           end;
       if key=Ord('A') then
           begin
           dx:=0;
           dy:=-1;
           Spridx:=sl;
           end;
       if Key=Ord('D') then
           begin
           dx:=0;
           dy:=1;
           Spridx:=sr;
           end;
        end
 else
       begin   //Никуда не идём
        dx:=0;
        dy:=0;
        Spridx:=Field[CurX,CurY];
        end;