araba sorun

   Var  MyForm:TclGameForm;
  rightbutton, leftbutton : TClProButton;
  araba,engel1img,engelimg,engel2img: TClProImage;
  GameTimer,Timer,GameTimer1,GameTimer2,GameTimer3:TClTimer;
  b: Boolean;

Procedure Proc4OnGameTimer;
Const 
  engel2imgSpeed = -10;
begin
  engel2img.Align:= alNone; 
  engel2img.Top := engel2img.Top - engel2imgSpeed;//yukarı yön

  if (engel2img.Left + engel2img.Width) > TForm(MyForm).ClientWidth then  // sağ kenar kontrolü
    engel2img.Left := TForm(MyForm).ClientWidth - engel2img.Width;

  if (engel2img.Left) < 0 then // sol kenar kontrolü
    engel2img.Left := 0;

  if (engel2img.Top + engel2img.Height) > TForm(MyForm).ClientHeight then  // Alt sınır kontrolü
  begin
    engel2img.Top := TForm(MyForm).ClientHeight - engel2img.Height;
    engel2img.Top := 0;
    engel2img.Left:= clMath.generateRandom(150,250);
  end;

  if engel2img then
    GameTimer.Enabled:= True;
end;

Procedure Proc2OnGameTimer;
Const 
  engel1imgSpeed= -10;
begin
  engel1img.Align := alNone; 
  engel1img.Top := engel1img.Top - engel1imgSpeed;//yukarı yön

  if (engel1img.Left + engel1img.Width) > TForm(MyForm).ClientWidth then  // sağ kenar kontrolü
    engel1img.Left := TForm(MyForm).ClientWidth - engel1img.Width;

  if (engel1img.Left) < 0 then // sol kenar kontrolü
    engel1img.Left := 0;

  if (engel1img.Top + engel1img.Height) > TForm(MyForm).ClientHeight then  // Alt sınır kontrolü
  begin
    engel1img.Top := TForm(MyForm).ClientHeight - engel1img.Height;
    engel1img.Top := 0;
    engel1img.Left:= clMath.generateRandom(50,150);
  end;

  if engel1img then
    GameTimer.Enabled:= True;
end;

Procedure Proc3OnGameTimer;
Const 
  engelimgSpeed = -10;
begin
  engelimg.Align := alNone; 
  engelimg.Top := engelimg.Top - engelimgSpeed;//yukarı yön

  if (engelimg.Left + engelimg.Width) > TForm(MyForm).ClientWidth then  // sağ kenar kontrolü
    engelimg.Left := TForm(MyForm).ClientWidth - engelimg.Width;

  if (engelimg.Left) < 0 then // sol kenar kontrolü
    engelimg.Left := 0;

  if (engelimg.Top + engelimg.Height) > TForm(MyForm).ClientHeight then  // Alt sınır kontrolü
  begin
    engelimg.Top := TForm(MyForm).ClientHeight - engelimg.Height;
    engelimg.Top := 0;
    engelimg.Left:= clMath.generateRandom(0,100);
  end;

  if engelimg then
    GameTimer.Enabled:= True;
end;

procedure SetImage3;
begin
  engel2img := MyForm.AddNewProImage(MyForm,'engel2img');
  clComponent.SetupComponent(engel2img,'{"Width":75, "Height":150, "Align":"None",
  "ImgUrl":"https://i.hizliresim.com/io5ymz8.png", "Left": 60, "Top": 0}');
end;

procedure SetImage2;
begin
  engel1img := MyForm.AddNewProImage(MyForm,'engel1img');
  clComponent.SetupComponent(engel1img,'{"Width":75, "Height":150, "Align":"None",
  "ImgUrl":"https://i.hizliresim.com/p1uujvb.png", "Left": 0, "Top": 30}');
end;

procedure SetImage1;
begin
  engelimg:= MyForm.AddNewProImage(MyForm,'engelimg');
  clComponent.SetupComponent(engelimg,'{"Width":75, "Height":150, "Align":"None",
  "ImgUrl":"https://i.hizliresim.com/rr72hin.png", "Left": 30, "Top": 10}');
end;

Function Max(in1,in2: Integer): Integer; begin

  if in1 >= in2 then
    Result:= in1
  else
    Result:= in2;
End;

Function Min(in1,in2: Integer): Integer; begin

  if in1 <= in2 then
    Result:= in1
  else
    Result:= in2;
End;

// Change background
Procedure Proc1OnGameTimer; begin

  if b then
    MyForm.SetFormBGImage('c4gxsvt.png')
  else
    MyForm.SetFormBGImage('anhjtzn.png');

  b:= not b;
End;

Procedure ProcOnGameTimer;
Const 
  arabaSpeed = 0;
Var
  intersect_area,intersect_x1, intersect_y1, intersect_x2, intersect_y2: Integer;
  b: Boolean;
begin
  araba.Top := araba.Top - arabaSpeed;//Yukarı yön

  if (araba.Left + araba.Width) > TForm(MyForm).ClientWidth then  // sağ kenar kontrolü
    araba.Left := TForm(MyForm).ClientWidth - araba.Width;

  if (araba.Left) < 0 then // sol kenar kontrolü
    araba.Left := 0;

  if (araba.Top + araba.Height) > TForm(MyForm).ClientHeight then  // alt sınıt  kontrolü
    araba.Top := TForm(MyForm).ClientHeight - araba.Height;

  if araba then
  GameTimer.Enabled := True;

  b:= False;

  {Engel}
  intersect_x1:= max(araba.Left, engelimg.Left);
  intersect_y1:= max(araba.Top, engelimg.Top);
  intersect_x2:= min(araba.Left+araba.Width, engelimg.Left+engelimg.Width);
  intersect_y2:= min(araba.Top+araba.Height, engelimg.Top+engelimg.Height);
  intersect_area:= (intersect_x2 - intersect_x1) * (intersect_y2 - intersect_y1);

  b:= b or (intersect_area > 0) and (araba.Top < engelimg.Top+engelimg.Height);

  {/Engel}

  {Engel1}
  intersect_x1:= max(araba.Left, engel1img.Left);
  intersect_y1:= max(araba.Top, engel1img.Top);
  intersect_x2:= min(araba.Left+araba.Width, engel1img.Left+engel1img.Width);
  intersect_y2:= min(araba.Top+araba.Height, engel1img.Top+engel1img.Height);
  intersect_area:= (intersect_x2 - intersect_x1) * (intersect_y2 - intersect_y1);

  b:= b or (intersect_area > 0) and (araba.Top < engel1img.Top+engel1img.Height);
  {/Engel1}

  {Engel2}
  intersect_x1:= max(araba.Left, engel2img.Left);
  intersect_y1:= max(araba.Top, engel2img.Top);
  intersect_x2:= min(araba.Left+araba.Width, engel2img.Left+engel2img.Width);
  intersect_y2:= min(araba.Top+araba.Height, engel2img.Top+engel2img.Height);
  intersect_area:= (intersect_x2 - intersect_x1) * (intersect_y2 - intersect_y1);

  b:= b or (intersect_area > 0) and (araba.Top < engel2img.Top+engel2img.Height);
  {/Engel2}

  if b then
  Begin
    ShowMessage('Engele dokunuldu');
    engelimg.Top:= 1;
    engel1img.Top:= 1;
    engel2img.Top:= 1;
  End;
end; 

procedure rightbuttonOnClick;
Begin
  araba.Align := alNone;
  araba.Left:= araba.Left +25;
end;

procedure leftbuttonOnClick;
Begin
  araba.Align := alNone;
  araba.Left:= araba.Left -25;
end;

procedure SetImage;
begin
  araba := MyForm.AddNewProImage(MyForm,'araba');
  clComponent.SetupComponent(araba,'{"MarginBottom":-450,"Width" :75, "Height":150,
 "ImgUrl":"https://1.bp.blogspot.com/-eLqVU9iD9EM/WsoJrp3VRaI/AAAAAAAABjo/QH1WGuxqG1Y24swMOrKAZUZzSl8ScXXWgCLcBGAs/s1600/araba.png", "ImgFit":"yes"}');
end;

begin
  b:= False;
  MyForm := TclGameForm.Create(Self);
  MyForm.AddGameAssetFromUrl('https://i.hizliresim.com/c4gxsvt.png');
  MyForm.AddGameAssetFromUrl('https://i.hizliresim.com/anhjtzn.png');

  rightbutton := MyForm.AddNewProButton(MyForm,'rightbutton','');
  clComponent.SetupComponent(rightbutton,'{"caption":" ", "MarginBottom":-700, "Width" :200,"MarginLeft":275, 
  "Height":70,"RoundHeight":2,
  "RoundWidth":2}');
  MyForm.SetImage(rightbutton,'https://i.hizliresim.com/rctnzmd.png'); 
  MyForm.AddNewEvent(rightbutton,tbeOnClick,'rightbuttonOnClick');

  leftbutton := MyForm.AddNewProButton(MyForm,'leftbutton','');
  clComponent.SetupComponent(leftbutton,'{"caption":" ",  "MarginBottom":-700,  "Width" :200,"MarginRight":300, 
  "Height":70,"RoundHeight":2,
  "RoundWidth":2}');
  MyForm.SetImage(leftbutton,'https://i.hizliresim.com/t73pt83.png'); 
  MyForm.AddNewEvent(leftbutton,tbeOnClick,'leftbuttonOnClick');

  Timer:= MyForm.AddNewTimer(MyForm,'timer',100);
  Timer.Enabled:= True;  
  MyForm.AddNewEvent(Timer,tbeOnTimer,'Proc1OnGameTimer');

  GameTimer:= MyForm.AddNewTimer(MyForm,'GameTimer',1000);
  GameTimer.Interval := 100;
  GameTimer.Enabled := True;
  MyForm.AddNewEvent(GameTimer,tbeOnTimer,'ProcOnGameTimer');

  GameTimer2:= MyForm.AddNewTimer(MyForm,'GameTimer2',1000);
  GameTimer2.Interval := 100;
  GameTimer2.Enabled := True;
  MyForm.AddNewEvent(GameTimer2,tbeOnTimer,'Proc2OnGameTimer');

  GameTimer1:= MyForm.AddNewTimer(MyForm,'GameTimer1',1000);
  GameTimer1.Interval := 100;
  GameTimer1.Enabled := True;
  MyForm.AddNewEvent(GameTimer1,tbeOnTimer,'Proc3OnGameTimer');

  GameTimer3:= MyForm.AddNewTimer(MyForm,'GameTimer3',1000);
  GameTimer3.Interval := 100;
  GameTimer3.Enabled := True;
  MyForm.AddNewEvent(GameTimer3,tbeOnTimer,'Proc4OnGameTimer');

  SetImage3;
  SetImage2;
  SetImage1;
  SetImage;
  MyForm.Run;
end;
Sınır kontrollerini yapmama rağmen engelde gelen arabalar bazen üst üste bazen ise yoldan çıkmış halde geliyor sebebi nedir acaba ?