void ProcYes;
 {
  try
    puan = puan - 100;
 
    // Puan güncelleme
    Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO PuanKayitlari (puan) VALUES (' + IntToStr(puan) + ')';
    Clomosy.DBSQLiteQuery.OpenOrExecute;
    // Satın alınan ürünü kaydetme - DÜZELTME BURADA
    try 
      Clomosy.DBSQLiteQuery.Sql.Text = 'INSERT INTO satinalinanlar (buttonName) VALUES (' + QuotedStr(clickedBtn.Hint) + ')';
      Clomosy.DBSQLiteQuery.OpenOrExecute;
      ShowMessage('Satın alma başarıyla kaydedildi!');
    
    except 
      ShowMessage('Satın alma kaydedilemedi: ' + LastExceptionMessage);
    }
    PuanLabeliGuncelle;
    ShowMessage('Tebrikler! Satın aldınız. Toplam puan: ' + IntToStr(puan));
  except
    ShowMessage('Veri eklenemedi: ' + LastExceptionMessage);
  }
 }
 void ProcNo;
 {
    ShowMessage('Hayır');
 }
 
 
 void BtnOnClick
{
  try 
     clickedBtn = TClProButton(myForm.ClSender);
    Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ClomosyDatabase.db3', '');
 
    puanQuery = Clomosy.DBSQLiteQueryWith('SELECT puan FROM PuanKayitlari ORDER BY id DESC LIMIT 1');
    puanQuery.OpenOrExecute;
 
    if (puanQuery.Found) {
      puan = puanQuery.FieldByName('puan').AsInteger;
    } else {
      puan = 0;
    }
    if (puan >= 100) {
      Clomosy.AskAndCall('Satın almak istiyor musunuz?','ProcYes','ProcNo');
    } else {
      ShowMessage('Yetersiz puan! Satın alma için en az 100 puan gerekir.');
    }
  except
    ShowMessage('Veri eklenemedi: ' + LastExceptionMessage);
  }
}