var

  MainForm: TClForm;

  ProductList: TClListView;

  BtnAdd, BtnRefresh: TClProButton;

  EdtName, EdtQty: TClEdit;

  LblName, LblQty: TClProLabel;

  PopUpForm: TClForm;

// --- Veritabanı ve Liste Güncelleme ---

void RefreshData;

{

  // Verileri SQL'den çek ve ListView'e aktar

  Clomosy.DBSQLServerQuery.SQL.Text('SELECT ProductName as (MainText), CAST(ProductStock AS VARCHAR) + '' Adet'' as (FooterText) FROM Products');

  ProductList.Dataset = Clomosy.DBSQLServerDataset;

}

// --- Yeni Ürün Kaydetme ---

void SaveProduct;

{

  if ((EdtName.Text == '') || (EdtQty.Text == '')) 

  {

    ShowMessage('Lütfen tüm alanları doldurun!');

    Exit;

  }

  try

    // SQL Insert işlemi

    Clomosy.DBSQLServerQuery('INSERT INTO Products (ProductName, ProductStock) VALUES (' + 

      QuotedStr(EdtName.Text) + ', ' + EdtQty.Text + ')');

    

    ShowMessage('Ürün başarıyla kaydedildi.');

    PopUpForm.Close;

    RefreshData; // Listeyi yenile

  except

    ShowMessage('Hata: Veri kaydedilemedi. Sayısal değerleri kontrol edin.');

  }

}

// --- Ürün Ekleme Penceresini Aç ---

void OpenAddWindow;

{

  PopUpForm = TClForm.Create(Self);

  PopUpForm.SetFormColor('#f4f4f4');

  

  LblName = PopUpForm.AddNewProLabel(PopUpForm, 'LblName', 'Ürün Adı:');

  LblName.Align = alTop;

  LblName.Margins.Top = 20;

  EdtName = PopUpForm.AddNewEdit(PopUpForm, 'EdtName', 'Örn: Bilgisayar');

  EdtName.Align = alTop;

  LblQty = PopUpForm.AddNewProLabel(PopUpForm, 'LblQty', 'Stok Miktarı:');

  LblQty.Align = alTop;

  LblQty.Margins.Top = 10;

  EdtQty = PopUpForm.AddNewEdit(PopUpForm, 'EdtQty', 'Örn: 50');

  EdtQty.Align = alTop;

  EdtQty.clTextSettings.KeyboardType = clkNumeric; // Sadece sayı klavyesi

  BtnAdd = PopUpForm.AddNewProButton(PopUpForm, 'BtnSave', 'Kaydet');

  BtnAdd.Align = alBottom;

  BtnAdd.Height = 50;

  BtnAdd.clSetStyle(cpbSuccess);

  PopUpForm.AddNewEvent(BtnAdd, tbeOnClick, 'SaveProduct');

  PopUpForm.Run;

}

// --- Ana Uygulama Kurulumu ---

{

  MainForm = TClForm.Create(Self);

  

  // Tablo oluşturma (Eğer yoksa)

  Clomosy.DBSQLServerQuery('IF NOT EXISTS (SELECT * FROM sysobjects WHERE name=''Products'' AND xtype=''U'') ' +

    'CREATE TABLE Products (ProductID INT IDENTITY(1,1) PRIMARY KEY, ProductName VARCHAR(100), ProductStock FLOAT)');

  // Başlık

  MainForm.Caption = 'ClomoStock v1.0';

  // Ürün Listesi

  ProductList = MainForm.AddNewListView(MainForm, 'ProductList');

  ProductList.Align = alClient;

  ProductList.Margins.Top = 10;

  // Ekle Butonu

  BtnAdd = MainForm.AddNewProButton(MainForm, 'BtnAdd', '+ Yeni Ürün Ekle');

  BtnAdd.Align = alTop;

  BtnAdd.Height = 60;

  BtnAdd.clSetStyle(cpbInfo);

  MainForm.AddNewEvent(BtnAdd, tbeOnClick, 'OpenAddWindow');

  // Yenile Butonu

  BtnRefresh = MainForm.AddNewProButton(MainForm, 'BtnRefresh', 'Listeyi Yenile');

  BtnRefresh.Align = alBottom;

  BtnRefresh.Height = 50;

  MainForm.AddNewEvent(BtnRefresh, tbeOnClick, 'RefreshData');

  // İlk açılışta verileri getir

  RefreshData;

  MainForm.Run;

}

hatamda bu sekilde nasıl düzeltebilirim