RUNTIME ERROR

File library anasayfa: Unit kaloriForminstance: Syntax error.

Source position: 152,1 when evaluating instruction CallProc SFFFFFFFF.S1.SB33728,S17CC9540,'RunUnit').

Stack content is: [Null, Null, Integer:498402960,Null...].

Source position: 22,40

Position: 22, 40.

 böyle hata mesajı alıyorum kodlarım bu şekilde nasıl çözecegimi bulamadımm yardımcı olur musunuz 

var

  kaloriFormInstance: TCLForm;

  mainLayout: TCLLayout;

  titleLabel: TCLLabel;

  dataListView: TCLListView;

  refreshButton: TCLProButton;

  addPanel: TCLProPanel;

  yemekAdiEdit: TCLProEdit;

  kaloriEdit: TCLProEdit;

  ekleButton: TCLProButton;

  SQLiteDB: TCLSQLiteConnection;

  Query: TCLSQLiteQuery;

  dbPath: string;

  Sifre, DB: String;

  Qry: TClSQLiteQuery;

{

  kaloriFormInstance = TCLForm.Create(Self);

  kaloriFormInstance.SetFormColor('#cce6d6', '#678e76', clGVertical);

  // Veritabanı ayarları

  Sifre = '';

  DB = 'C:\sqlite_db\kalori.db';

  Clomosy.DBSQLiteConnect(DB, Sifre);

  // Veritabanı bağlantı testi

  try

    Qry = Clomosy.DBSQLiteQueryWith('SELECT COUNT(*) as toplam FROM yemekler');

    Qry.OpenOrExecute;

    ShowMessage('Veritabanı bağlandı. Toplam ' + Qry.FieldByName('toplam').AsString + ' yemek bulundu.');

  except

    ShowMessage('Veritabanı bağlantı hatası: ' + LastExceptionMessage);

  ;

  // İlk verileri yükle

  try

    Qry = Clomosy.DBSQLiteQueryWith('SELECT * FROM yemekler ORDER BY yemek_adi');

    Qry.OpenOrExecute;

    while (not Qry.Eof)

    {

      dataListView.Items.Add;

      dataListView.Items[dataListView.Items.Count-1].Text = Qry.FieldByName('yemek_adi').AsString;

      dataListView.Items[dataListView.Items.Count-1].Detail = Qry.FieldByName('kalori').AsString + ' kalori';

      Qry.Next;

    }

  except

    ShowMessage('Veriler yüklenirken hata: ' + LastExceptionMessage);

  ;

  // Başlık etiketi

  titleLabel = kaloriFormInstance.AddNewLabel(kaloriFormInstance.LytTopBar, 'titleLabel', 'Kalori Listesi');

  titleLabel.StyledSettings = ssFamily;

  titleLabel.TextSettings.Font.Size = 30;

  titleLabel.Align = alLeft;

  titleLabel.Margins.Left = 14;

  titleLabel.Margins.Top = 10;

  titleLabel.Height = 65;

  titleLabel.Width = 200;

  // Ana layout

  mainLayout = kaloriFormInstance.AddNewLayout(kaloriFormInstance, 'mainLayout');

  mainLayout.Align = alClient;

  mainLayout.Margins.Top = 10;

  mainLayout.Margins.Bottom = 10;

  mainLayout.Margins.Left = 10;

  mainLayout.Margins.Right = 10;

  // Yenile butonu

  refreshButton = kaloriFormInstance.AddNewProButton(mainLayout, 'refreshButton', 'Listeyi Yenile');

  refreshButton.Align = alTop;

  refreshButton.Height = 50;

  refreshButton.Margins.Bottom = 10;

  refreshButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#4CAF50');

  refreshButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  refreshButton.clProSettings.FontSize = 16;

  refreshButton.clProSettings.TextSettings.Font.Style = [fsBold];

  refreshButton.clProSettings.IsRound = True;

  refreshButton.clProSettings.RoundHeight = 10;

  refreshButton.clProSettings.RoundWidth = 10;

  refreshButton.SetclProSettings(refreshButton.clProSettings);

  // ListView

  dataListView = kaloriFormInstance.AddNewListView(mainLayout, 'dataListView');

  dataListView.Align = alClient;

  dataListView.ItemAppearance.ItemHeight = 60;

  dataListView.SearchVisible = True;

  dataListView.Margins.Bottom = 10;

  // Ekleme paneli

  addPanel = kaloriFormInstance.AddNewProPanel(mainLayout, 'addPanel');

  addPanel.Align = alBottom;

  addPanel.Height = 180;

  addPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#F5F5F5');

  addPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#DDDDDD');

  addPanel.clProSettings.BorderWidth = 1;

  addPanel.clProSettings.IsRound = True;

  addPanel.clProSettings.RoundHeight = 10;

  addPanel.clProSettings.RoundWidth = 10;

  addPanel.SetclProSettings(addPanel.clProSettings);

  // Yemek adı input

  yemekAdiEdit = kaloriFormInstance.AddNewProEdit(addPanel, 'yemekAdiEdit', 'Yemek adını girin...');

  yemekAdiEdit.Align = alTop;

  yemekAdiEdit.Height = 50;

  yemekAdiEdit.Margins.Top = 15;

  yemekAdiEdit.Margins.Left = 15;

  yemekAdiEdit.Margins.Right = 15;

  yemekAdiEdit.Margins.Bottom = 5;

  yemekAdiEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#2196F3');

  yemekAdiEdit.clProSettings.BorderWidth = 2;

  yemekAdiEdit.clProSettings.IsRound = True;

  yemekAdiEdit.clProSettings.RoundHeight = 10;

  yemekAdiEdit.clProSettings.RoundWidth = 10;

  yemekAdiEdit.clProSettings.FontSize = 16;

  yemekAdiEdit.SetclProSettings(yemekAdiEdit.clProSettings);

  // Kalori input

  kaloriEdit = kaloriFormInstance.AddNewProEdit(addPanel, 'kaloriEdit', 'Kalori miktarını girin...');

  kaloriEdit.Align = alTop;

  kaloriEdit.Height = 50;

  kaloriEdit.Margins.Top = 5;

  kaloriEdit.Margins.Left = 15;

  kaloriEdit.Margins.Right = 15;

  kaloriEdit.Margins.Bottom = 5;

  kaloriEdit.KeyboardType = vktNumberPad;

  kaloriEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FF9800');

  kaloriEdit.clProSettings.BorderWidth = 2;

  kaloriEdit.clProSettings.IsRound = True;

  kaloriEdit.clProSettings.RoundHeight = 10;

  kaloriEdit.clProSettings.RoundWidth = 10;

  kaloriEdit.clProSettings.FontSize = 16;

  kaloriEdit.SetclProSettings(kaloriEdit.clProSettings);

  // Ekle butonu

  ekleButton = kaloriFormInstance.AddNewProButton(addPanel, 'ekleButton', 'EKLE');

  ekleButton.Align = alTop;

  ekleButton.Height = 50;

  ekleButton.Margins.Top = 5;

  ekleButton.Margins.Left = 15;

  ekleButton.Margins.Right = 15;

  ekleButton.Margins.Bottom = 15;

  ekleButton.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FF5722');

  ekleButton.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  ekleButton.clProSettings.FontSize = 18;

  ekleButton.clProSettings.TextSettings.Font.Style = [fsBold];

  ekleButton.clProSettings.IsRound = True;

  ekleButton.clProSettings.RoundHeight = 15;

  ekleButton.clProSettings.RoundWidth = 15;

  ekleButton.SetclProSettings(ekleButton.clProSettings);

  

  kaloriFormInstance.Run;

}