TclProDateEdit ile veritabanına kayıt

void HarcamaKaydet;

var

    girilenTutar: Real;

    girilenTarih: String;

    secilenKategoriID: Integer;

    sqlSorgu: String;

{

    try

        

        if((guncelTutarEdit == nil) || (guncelTarihEdit == nil) || (guncelKategoriBtn == nil) ){

            ShowMessage('Form elemanları bulunamadı!');

            Exit;

        }

       

       

        try

            girilenTutar = StrToFloat(guncelTutarEdit.Text);

        except

            ShowMessage('Lütfen geçerli bir tutar giriniz!');

            Exit;

        }

        

        girilenTarih =guncelTarihEdit.Text;

        //girilenTarih=guncelTarihEdit.DateStr;

        secilenKategoriID = guncelKategoriBtn.ClTagInt;

        

       

        if (girilenTutar <= 0) {

            ShowMessage('Tutar sıfırdan büyük olmalıdır!');

            Exit;

        }

        

        if (secilenKategoriID <= 0) {

            ShowMessage('Lütfen bir kategori seçiniz!');

            Exit;

        }

        

        if (girilenTarih == '') {

            ShowMessage('Lütfen bir tarih seçiniz!');

            Exit;

        }

        

        Clomosy.DBSQLiteConnect(Clomosy.AppFilesPath + 'ncyyn.db3', '');

        

        sqlSorgu = 'INSERT INTO harcamalar (kategori_id, tutar, tarih) VALUES (' + 

                   IntToStr(secilenKategoriID) + ', ' + 

                   FloatToStr(girilenTutar) + ', ' + 

                   QuotedStr(girilenTarih) + ')';

        

        Qry = Clomosy.DBSQLiteQueryWith(sqlSorgu);

        Qry.OpenOrExecute;

        Qry.Free;

        

        ShowMessage('Harcama kaydedildi!');

      

       -

        tumHarcamalariYukle;

        

    except

        ShowMessage('Harcama kaydetme hatası: ' + LastExceptionClassName + ' - ' + LastExceptionMessage);

    }

}Merhaba,böyle bir fonksiyonum var .guncelTutarEdit,guncelTarihEdit ,guncelKategoriBtn global değiskenler.Başka bir fonksiyonda nesneleri oluşturuyorum.guncelTarihEdit TclProDateEdit ile tanımladım.Tarih seçmeme rağmen Lütfen bir tarih seçiniz!hatası alıyorum.Yorum satırındaki şekilde denediğimde de SQL hatası alıyorum.Bir dönüşüm yapmam gerek sanırım ama,bilemedim.Yardımcı olursanız çok sevinirim.