var

Form1 : TclForm

Tas1 , Tas2 , Tas3 , Tas4 , Player1 : TClProImage

FallTimer , TimeTimer : TCLTimer

x1 , x2 , x3 , x4 , A , B , C , D : Integer

TimeLeft : Integer 

BtnLeft , BtnRight : TClProButton

Label1 : TClProLabel

void MoveLeft;

{

  Player1.Position.X = Player1.Position.X - 50;

}

void MoveRight;

{

  Player1.Position.X = Player1.Position.X + 50;

}

void timerShow;

{

Tas1.Position.Y = Tas1.Position.Y + A

Tas2.Position.Y = Tas2.Position.Y + B

Tas3.Position.Y = Tas3.Position.Y + C

Tas4.Position.Y = Tas4.Position.Y + D

if(Tas1.Position.Y >= 800)

{

A = A+1

Tas1.Position.Y = Tas1.Position.Y - 800

Tas1.Position.X = Round(Random()*50)*25

}

if(Tas2.Position.Y >= 800)

{

B = B+1

Tas2.Position.Y = Tas2.Position.Y - 800

Tas2.Position.X = Round(Random()*50)*25

}

if(Tas3.Position.Y >= 800)

{

C = C+1

Tas3.Position.Y = Tas3.Position.Y - 800

Tas3.Position.X = Round(Random()*50)*25

}

if(Tas4.Position.Y >= 800)

{

D = D+1

Tas4.Position.Y = Tas4.Position.Y - 800

Tas4.Position.X = Round(Random()*50)*25

}

 if (Form1.clIsIntersectsWith(Player1, Tas1))

   {

      FallTimer.Enabled = False

      ShowMessage('Game Over');

      Form1.Close;

   }

   

   if (Form1.clIsIntersectsWith(Player1, Tas2))

   {

      FallTimer.Enabled = False

      ShowMessage('Game Over');

      Form1.Close;

   }

   

   if (Form1.clIsIntersectsWith(Player1, Tas3))

   {

      FallTimer.Enabled = False

      ShowMessage('Game Over');

      Form1.Close;

   }

   

   if (Form1.clIsIntersectsWith(Player1, Tas4))

   {

      FallTimer.Enabled = False

      TimeTimer.Enabled = False

      ShowMessage('Game Over');

      Form1.Close;

   }

   

} 

void  TimeTimerTimer(TObject *Sender)

{

   Label1.Caption = IntToStr(TimeLeft);

   if(TimeLeft <= 0)

   {

      TimeTimer.Enabled = false;

      FallTimer.Enabled = false;

      ShowMessage("Kazandın");

   }

   TimeLeft = TimeLeft - 1;

}

{

  Form1 = TclForm.Create(Self);

  Form1.clSetWindowState(fwsMaximized);

  Form1.BtnGoBack.Visible = False;

  Form1.BtnFormMenu.Visible = False;

  Form1.clSetWindowState(fwsMaximized);

  Form1.SetFormBGImage(' https://resmim.net/cdn/2026/05/04/CoyVNq.jpg" rel="nofollow - https://resmim.net/cdn/2026/05/04/CoyVNq.jpg ');

  

  x1  = Round(Random()*50)*25

  x2  = Round(Random()*50)*25

  x3  = Round(Random()*50)*25

  x4  = Round(Random()*50)*25

  A = 9;

  B = 10 ;

  C = 11;

  D = 12;

  TimeLeft = 20;

  

  Player1 = Form1.AddNewProImage(Form1, 'Player1');

  Player1.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/29/CbMBGW.png" rel="nofollow - https://resmim.net/cdn/2026/04/29/CbMBGW.png ';

  Player1.Height = 100;

  Player1.Width = 50;

  Player1.Align = alNone;

  Player1.Position.X = 600;

  Player1.Position.Y = 600;

  Player1.SetclProSettings(Player1.clProSettings);

  

  Tas1 = Form1.AddNewProImage(Form1 , 'Tas1')

  Tas1.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/30/CbeqAj.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/30/CbeqAj.jpg '

  Tas1.Height = 50

  Tas1.Width = 50

  Tas1.Align = alNone

  Tas1.Position.X = x1

  Tas1.Position.Y = 0

  Tas1.SetclProSettings(Tas1.clProSettings)

  

    Tas2 = Form1.AddNewProImage(Form1 , 'Tas2')

  Tas2.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/30/CbeqAj.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/30/CbeqAj.jpg '

  Tas2.Height = 50

  Tas2.Width = 50

  Tas2.Align = alNone

  Tas2.Position.X = x2

  Tas2.Position.Y = 0

  Tas2.SetclProSettings(Tas2.clProSettings)

  

    Tas3 = Form1.AddNewProImage(Form1 , 'Tas3')

  Tas3.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/30/CbeqAj.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/30/CbeqAj.jpg '

  Tas3.Height = 50

  Tas3.Width = 50

  Tas3.Align = alNone

  Tas3.Position.X = x3

  Tas3.Position.Y = 0

  Tas3.SetclProSettings(Tas3.clProSettings)

  

  Tas4 = Form1.AddNewProImage(Form1 , 'Tas4')

  Tas4.clProSettings.PictureSource = ' https://resmim.net/cdn/2026/04/30/CbeqAj.jpg" rel="nofollow - https://resmim.net/cdn/2026/04/30/CbeqAj.jpg '

  Tas4.Height = 50

  Tas4.Width = 50

  Tas4.Align = alNone

  Tas4.Position.X = x4

  Tas4.Position.Y = 0

  Tas4.SetclProSettings(Tas4.clProSettings)

  

  BtnLeft = Form1.AddNewProButton(Form1, 'BtnLeft' , 'Sol')

  BtnLeft.Align = alNone

  BtnLeft.Position.X = 400;

  BtnLeft.Position.Y = 550;

  BtnLeft.ClProSettings.BackgroundColor = ClAlphaColor.ClHextoColor ('#6F130F');

  BtnLeft.SetclProSettings(BtnLeft.ClProSettings);

  Form1.AddNewEvent(BtnLeft, tbeOnClick, 'MoveLeft');

  BtnRight = Form1.AddNewProButton(Form1, 'BtnRight' , 'Sağ')

  BtnRight.Align = alNone

  BtnRight.Position.X = 520;

  BtnRight.Position.Y = 550;

  BtnRight.ClProSettings.BackgroundColor = ClAlphaColor.ClHextoColor ('#6F130F');

  BtnRight.SetclProSettings(BtnRight.ClProSettings);

  Form1.AddNewEvent(BtnRight, tbeOnClick, 'MoveRight');

  

FallTimer = Form1.AddNewTimer(Form1,'FallTimer', 10);

FallTimer.Enabled = True;

Form1.AddNewEvent(FallTimer,tbeOnTimer,'timerShow');

TimeTimer = Form1.AddNewTimer(Form1,'TimeTimer', 1000);

TimeTimer.Enabled = True; 

Form1.AddNewEvent(TimeTimer , tbeOnTimer , 'TimeTimerTimer')

Label1 = Form1.AddNewProLabel(Form1, 'Label1', '');

Label1.Position.X = 600

Label1.Position.Y = 5

Label1.Caption = IntToStr(TimeLeft);

Label1.SetclProSettings(Label1.ClProSettings)

  Form1.Run;

} 

hata alıyorum