Перемещение стен (камеры) при изменении положения объекта

     LockDrawingObjects;
     For var i:=1 to Objects.Count-1 do
      begin
       if objects[i]<>square then
       objects[i].MoveOn(-o2,0); 
      end;      
     UnLockDrawingObjects;

uses GraphABC, ABCObjects, Timers;
 
const r=50;
      d=30;
 
var fil:text;
    a:array [0..100,0..100] of char;
    
    mas:array [0..1000] of byte;
    
    var square_back:PictureABC := PictureABC.Create(-r,-r,'square1.gif');
    var square:PictureABC := PictureABC.Create(-r,-r,'square2.gif');   
    
    ws:string;
    hs:string;
    w:integer;
    h:integer;
    
    x,y:integer;
    o:integer :=5;
    o2:integer :=5;
    
    button:integer;
    
    mg:integer:=1;
    mk:integer:=25;
    
    procedure Key; forward;
    var time1 := new Timer(30,Key);
    
    bool1:boolean :=false;
    bool2:boolean :=false;
    
    procedure gravity; forward;
    var time2 := new Timer(30,gravity);
    
    procedure jump; forward;
    var time3 := new Timer(30,jump);
   
procedure input;
begin
 Assign(fil,'file.ini');
 Reset(fil);
 
 readln(fil,ws);
 readln(fil,hs);
 w:=strtoint(ws);
 h:=strtoint(hs); 
 
 For var i:=0 to (h-1) do
  begin
  readln(fil);
   For var j:=0 to (w-1) do
    read(fil,a[i,j]);
  end; 
 
 Close(fil);
end;
 
procedure fill;
begin
 setwindowsize(w*r,h*r);
 window.IsFixedSize:=true;
 
 For var i:=0 to (h-1) do
  begin
   writeln();
   For var j:=0 to (w-1) do
    begin
     if a[i,j]='#' then square_back.Clone.MoveTo(j*r,i*r);
     if a[i,j]='S' then square.MoveTo(j*r,i*r);
    end; 
  end;  
end;
 
procedure proc_bool1;
 begin
  bool1:=true;      
 end;
 
procedure Refresh;
 begin
  proc_bool1;
  if bool1 then square.MoveTo(x,y);
 end;
 
procedure down(b:integer);
begin
 time1.start;
 button:=b;
end;
 
procedure up(b:integer);
begin
 time1.stop;
end;
 
procedure mas_Objects;
begin
 For var i:=0 to objects.Count-1 do
 if objects[i]<>square then mas[i]:=1;
end;
 
function mas_check(x_check,y_check:integer):boolean;
var i:byte;
begin
 Result:=false;
 for i:=0 to (Objects.Count-1) do
 if (Objects[i].PtInside(x_check,y_check)) and (mas[i]=1) then Result:=true;  
end;
 
procedure borts_check(direction:byte);
begin
 case direction of
 1: //ВВЕРХ
   begin
    while (mas_check(x,y-1)) or 
    (mas_check(x+d,y-1)) or 
    (mas_check(x+d mod 2,y-1)) do inc(y,1);
   end;
   
 2: //ВЛЕВО
   begin
    while (mas_check(x-1,y)) or 
    (mas_check(x-1,y+d)) or 
    (mas_check(x-1,y+d mod 2)) do inc(x,1);
   end;
   
 3: //ВНИЗ
   begin
    while (mas_check(x,y+d)) or 
    (mas_check(x+d,y+d)) or 
    (mas_check(x+d mod 2,y+d)) do 
    begin
     dec(y,1);
 //   bool2:=true;
    end;
   end;
   
 4: //ВПРАВО
   begin
    while (mas_check(x+d,y)) or 
    (mas_check(x+d,y+d)) or 
    (mas_check(x+d,y+d mod 2)) do dec(x,1);
   end;   
 end;
end;
 
procedure gravity();
begin
   if not (mas_check(x,y+d+1)) and 
   not (mas_check(x+d,y+d+1)) and 
   not (mas_check(x+d mod 2,y+d+1)) then 
  begin
   inc(y,mg);
   if mg<25 then inc(mg);
  end else mg:=1;
   borts_check(3);
   Refresh;
end;
 
procedure jump_start();
begin
   if ((mas_check(x,y+d+1)) or 
  (mas_check(x+d,y+d+1)) or
  (mas_check(x+d mod 2,y+d+1))) and (not bool2) then 
  begin
   bool2:=true;
   time3.start;
  end;
  
end;
 
procedure jump();
begin
    time2.stop;
 
    dec(y,mk);
 
    if not (mas_check(x,y-1)) and 
    not (mas_check(x+d,y-1)) and 
    not (mas_check(x+d mod 2,y-1)) then   
 
   begin
 
    if mk>1 then dec(mk) else 
    begin
     mk:=25;
     time3.stop;
     time2.start;
     bool2:=false; 
    end;
    
   end else
   begin
     while (mas_check(x,y-1)) or 
    (mas_check(x+d,y-1)) or 
    (mas_check(x+d mod 2,y-1)) do inc(y,1);
    
    //inc(y,mk);
    mk:=25;
    time3.stop;
    time2.start;
    bool2:=false; 
   end;
    
    
    Refresh;
    
end;
 
procedure Key;
begin
 
   if button=68 then 
      begin
       x+=o;  
       borts_check(4);
      end else  
      
  if button=65 then
      begin
        x-=o;  
        borts_check(2);
      end else 
      
  if button=87 then
      begin
       jump_start; 
       //borts_check(1);
       //bool2:=true;
      end else 
      
  if button=83 then 
      begin
       {y+=o;  
       borts_check(3);}
      end;
      
  Refresh;
      
end;
    
Begin
 
  OnKeyDown:=down;
  OnKeyUp:=up;
  input;
  fill; 
  
  y:=square.Top;
  x:=square.Left;
  
  square.MoveTo(x,y);
  mas_Objects;
  time2.start;
  
End.