hata


   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');
  
  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';
  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'
  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'
  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'
  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'
  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

https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
osman efe atik Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 04 Mayıs 2026 Durum: Aktif Değil Puanlar: 4	Mesaj Seçenekleri Yanıt Yaz Alıntı osman efe atik Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: hata Gönderim Zamanı: 5 Saat 7 Dakika Önce Saat 21:37
	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'); 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'; 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' 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' 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' 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' 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 https://static.cloudflareinsights.com/beacon.min.js/v8c78df7c7c0f484497ecbca7046644da1771523124516" integrity="sha512-8DS7rgIrAmghBFwoOTujcf6D9rXvH8xm8JQ1Ja01h9QX8EzXldiszufYa4IFfKdLUKTTrnSFXLDkUEOTrZQ8Qg==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1,"server_timing":{"name":{"cfCacheStatus":true,"cfEdge":true,"cfExtPri":true,"cfL4":true,"cfOrigin":true,"cfSpeedBrain":true},"location_startswith":null}}" crossorigin="anonymous">