annot open /define command which doesnt return res

Merhabalar , aşağıdaki kod statü güncelleme işlemini yapıyor fakat butona bastığımda yazdığım hatayı alıyorum bazen de bastığımda Invalid Cast Type hatasını alıyorum şimdiden yardımlarınız için teşekkür ederim

var

  MyForm: TclForm;

  mainVertSB: TclVertScrollBox;

  clProGrid: TClProGrid;

  lblBaslik: TClLabel;

  Qry: TClSQLiteQuery;

  btnStatuGuncelle:TClProButton;

  seciliEmail, seciliModul: String;

   seciliID: String;

   

   

void GetTaleplerGrid;

{

  try

     Qry = Clomosy.DBSQLiteQueryWith(

  'SELECT kullanici_email, modul, aciklama, status, id FROM Talepler'

);

    Qry.OpenOrExecute;

    if Qry.Found {

      clProGrid = MyForm.AddNewProGrid(mainVertSB, 'clProGrid');

      clProGrid.Align = alTop;

      clProGrid.Height = 400;

      clProGrid.Options.Selection.Mode = smSingleCell;

      clProGrid.ConnectDataSet(Qry);

      clProGrid.AutoSizeColumns(True, 100);

        MyForm.AddNewEvent(clProGrid, tbeOnProGridCellClick, 'ProGridSatirSecildi');

    } else {

      ShowMessage('Veri bulunamadı.');

    }

  except

    ShowMessage('Hata: ' + LastExceptionMessage);

  }

}

void ProGridSatirSecildi;

var

  satirNo: Integer;

{

  satirNo = MyForm.ClSenderRow;

  seciliID = clProGrid.Cells[4, satirNo];

}

void StatuyuGuncelle;

{

  if seciliID <> '' {

      Qry = Clomosy.DBSQLiteQueryWith(

      'UPDATE Talepler SET status = ''' + 'Çözüldü' + ''' WHERE id = ' + seciliID

    );

    

    ShowMessage('Durum "Çözüldü" olarak güncellendi.');

    GetTaleplerGrid;

  } else {

    ShowMessage('Lütfen önce bir satıra tıklayın.');

  }

}

{

  MyForm = TclForm.Create(Self);

  mainVertSB = MyForm.AddNewVertScrollBox(MyForm, 'mainVertSB');

  mainVertSB.Align = alClient;

  lblBaslik = MyForm.AddNewLabel(mainVertSB, 'lblBaslik', 'Tüm Talepler Listesi');

  lblBaslik.Align = alTop;

  lblBaslik.Height = 50;

  lblBaslik.TextSettings.Font.Size = 24;

  lblBaslik.TextSettings.Font.Style = [fsBold];

  lblBaslik.TextSettings.HorzAlign = taCenter;

  btnStatuGuncelle = MyForm.AddNewProButton(mainVertSB, 'btnStatuGuncelle', 'Durumu Güncelle');

  btnStatuGuncelle.Align = alTop;

  btnStatuGuncelle.Height = 50;

  GetTaleplerGrid;

  

  MyForm.AddNewEvent(btnStatuGuncelle, tbeOnClick, 'StatuyuGuncelle');

  MyForm.Run;

}

OpenOrExecute kullandım fakat aynı hatayı alınca tekrar sildim buraya da o şekilde attım diğer dediklerini uygulayacağım teşekkür ederim