void GunlukGorevleriOlustur;

var

  LBugun: String;

  LVarMi: Boolean;

  LQry: TClSQLiteQuery;

  LQry2: TClSQLiteQuery;

{

  LBugun = FormatDateTime('yyyy-mm-dd', Now);

  try

    LQry = Clomosy.DBSQLiteQueryWith(

      'SELECT ID FROM TblGorevler WHERE Tarih=' + QuotedStr(LBugun) + ' AND AcilMi=0 LIMIT 1'

    );

    LQry.OpenOrExecute;

    LVarMi = LQry.Found;

    LQry.Free;

    if not (LVarMi)

    {

      LQry2 = Clomosy.DBSQLiteQueryWith('SELECT * FROM TblSabitGorevler');

      LQry2.OpenOrExecute;

      while (not LQry2.Eof)

      {

        Clomosy.DBSQLiteQuery.Sql.Text =

          'INSERT INTO TblGorevler (AtananPersonelID, Lokasyon, Aciklama, QRKodu, PlanlananSaat, BaslangicSaati, BitisSaati, Durum, DurumNotu, Tarih, AcilMi) VALUES (' +

          IntToStr(LQry2.FieldByName('PersonelID').AsInteger) + ', ' +

          QuotedStr(LQry2.FieldByName('Lokasyon').AsString) + ', ' +

          QuotedStr('Sabit görev') + ', ' +

          QuotedStr(LQry2.FieldByName('QRKodu').AsString) + ', ' +

          QuotedStr(LQry2.FieldByName('PlanlananSaat').AsString)  ', ' +

          QuotedStr('-') + ', ' +

          QuotedStr('-') + ', ' +

          QuotedStr('Bekliyor') + ', ' +

          QuotedStr('-') + ', ' +

          QuotedStr(LBugun) + ', ' +

          '0)';

        Clomosy.DBSQLiteQuery.OpenOrExecute;

        LQry2.Next;

      }

      LQry2.Free;

    }

  except

    ShowMessage('Günlük görev oluşturma hatası: ' + LastExceptionMessage);

  }

}  bu kodda hata var ama bulamadım. yardımcı olabilirmisiniz.