SQL- DELETE kullanımı

Merhaba. ProListView içinde görüntülediğim verileri aşağıda gösterdiğim fonksiyonu çağırınca silmek istediğim bir buton oluşturdum. Ama fonksiyonda kırmızı ile işaretlediğim yeri nasıl yazacağımı bulamadım.  Yardımcı olur musunuz ?

void DeleteFromListView; 

  {

    try 

      selectQuery.SQL.text = 'DELETE KisiBilgileri WHERE ID =' ---------------------------- ProListView.clSelectedItemData('')

      selectQuery.ExecSql;

      ShowMessage('Veri Silme Başarılı!');

      AddDataToListView;

    finally

      selectQuery.Close; 

  }

Tabi öncesinde 

MyFOrm.AddNewEvent(ProListView,tbeOnItemClick,'DeleteFromListView'); bunu yapmış olman gerekir.

Var   

  MyForm:TclForm;

  Label1,adLbl,mekanLbl,zamanLbl,kmLbl,konumLbl,idLbl: TClProLabel;

  ProBtn1,ProBtn2,ProBtn3 : TClProButton;

  ProEdit1,ProEdit2,ProEdit3,ProEdit4,ProEdit5,ProEdit6:TclProEdit;

  ProListView : TClProListView;

  DesignerPanel : TClProListViewDesignerPanel; 

  ID,Kisi,Yer,Tarih,KmDegeri,Konum:TClProLabel;

  selectQuery: TclSqlQuery;

  

  void DeleteFromListView;

  {

    try 

      selectQuery.SQL.text = 'DELETE KisiBilgileri WHERE ID ='+QuotedStr(ProListView.clSelectedItemData(Cltext));

      selectQuery.ExecSql;

      ShowMessage('Veri Silme Başarılı!');

      //AddDataToListView;

    finally

      selectQuery.Close; 

   }

  }

  

  void AddDataToListView; 

   {

     try

       selectQuery.SQL.text = 'SELECT ID , Kisi , Yer ,Tarih , KmDegeri , Konum  From KisiBilgileri';

       selectQuery.Open;

       if(selectQuery.Found)

       {

         ProListView.ClLoadProListViewDataFromDataset(selectQuery);

       }

       else

       {

         ShowMessage('Kayıt Bulunamadı!');

       }

      except

        ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

      }

   }

   

   void InsertToDatabase;   

   {

    try

       Clomosy.DBSQLServerQuery.SQL.text= 'INSERT INTO KisiBilgileri (ID,Kisi,Yer,Tarih,KmDegeri,Konum) VALUES (

       '+ProEdit6.Text+','+QuotedStr(ProEdit1.Text)+', '+QuotedStr(ProEdit2.Text)+','+QuotedStr(ProEdit3.Text)+',

       '+ProEdit4.Text+',  '+QuotedStr(ProEdit5.Text)+')';

       Clomosy.DBSQLServerQuery.ExecSql;

       ShowMessage('Veri Ekleme Başarılı.');

    except

       ShowMessage('Exception class: '+LastExceptionClassName+' Exception Message: ' +LastExceptionMessage);

    }

  }

 {

   MyForm = TclForm.Create(Self);

   

   MyForm.SetFormColor('#f5f0f0', '#c3d3da', clGVertical);

   

   

   ProListView=MyForm.AddNewProListView(MyForm, 'ProListView');

   clComponent.SetupComponent(ProListView,'{"Height" : 150 ,"Width": 150, "Align":"Client","MarginBottom":50,"MarginTop":380,

   "MarginRight":20,"MarginLeft":20, "BackgroundColor":"#92a1aa", "ListType":"cart","ItemHeight" : 50, "BorderColor":"#4c5c67",

   "BorderWidth":2 , "ItemWidth":50 ,"ItemColumnCount" : 1 }');

   

   //ProListView.Properties.ItemSpace = 10;

   

   DesignerPanel=MyForm.AddNewProListViewDesignerPanel(ProListView,'DesignerPanel');

   clComponent.SetupComponent(DesignerPanel,

   '{"Height":140,"Width" : 150,

   "Align" : "alTop",

   "MarginTop" :10,

   "MarginRight":10,

   "MarginLeft":20,

   "MarginBottom":100,

   "BackgroundColor":"#677b98",

   "BorderColor":"#2c5696",

   "TextSize" : 20,

   "BorderWidth":2,

   "RoundHeight":2,

   "RoundWidth":2}');

   

   ID = MyForm.AddNewProLabel(DesignerPanel,'ID','Kişi ID');

   clComponent.SetupComponent(ID, 

   '{"Height":25,

    "Width" : 100,

    "MarginRight":540,

    "BackgroundColor":"#a4a5a8",

    "BorderColor":"#7a4848",

    "BorderWidth":2,

    "RoundHeight":2,

    "RoundWidth":2}');

    DesignerPanel.AddPanelObject(ID,Cltext);

    

    Kisi = MyForm.AddNewProLabel(DesignerPanel,'Kisi','Kişi Adı');

    clComponent.SetupComponent(Kisi, 

   '{"Height":25,

    "Width" : 100,

    "BackgroundColor":"#a4a5a8",

    "MarginRight":320,

    "BorderColor":"#7a4848",

    "BorderWidth":2,

    "RoundHeight":2,

    "RoundWidth":2}');

    DesignerPanel.AddPanelObject(Kisi,Cltext1);

    

    Yer = MyForm.AddNewProLabel(DesignerPanel,'Yer','Alındığı Yer');

    clComponent.SetupComponent(Yer, 

   '{"Height":25,

    "Width" : 100,

    "BackgroundColor":"#a4a5a8",

    "MarginRight":110,

    "BorderColor":"#7a4848",

    "BorderWidth":2,

    "RoundHeight":2,

    "RoundWidth":2}');

    DesignerPanel.AddPanelObject(Yer,Cltext2);

    

    Tarih = MyForm.AddNewProLabel(DesignerPanel,'Tarih','');

    clComponent.SetupComponent(Tarih, 

   '{"Height":25,

    "Width" : 100,

    "MarginLeft":100,

    "BackgroundColor":"#a4a5a8",

    "BorderColor":"#7a4848",

    "BorderWidth":2,

    "RoundHeight":2,

    "RoundWidth":2}');

    DesignerPanel.AddPanelObject(Tarih,Cltext3);

    

    KmDegeri = MyForm.AddNewProLabel(DesignerPanel,'KmDegeri','');

    clComponent.SetupComponent(KmDegeri, 

   '{"Height":25,

    "Width" : 100,

    "BackgroundColor":"#a4a5a8",

    "BorderColor":"#7a4848",

     "MarginLeft":320,

    "BorderWidth":2,

    "RoundHeight":2,

    "RoundWidth":2}');

    DesignerPanel.AddPanelObject(KmDegeri,Cltext4);

    

    Konum= MyForm.AddNewProLabel(DesignerPanel,'Konum','');

    clComponent.SetupComponent(Konum, 

   '{"Height":25,

    "Width" : 100,

    "MarginTop" :0,

    "MarginRight":0,

    "MarginLeft":540,

    "BackgroundColor":"#a4a5a8",

    "BorderColor":"#7a4848",

    "BorderWidth":2,

    "RoundHeight":2,

    "RoundWidth":2}');

    DesignerPanel.AddPanelObject(Konum,Cltext5);

    

    

    ProListView.SetDesignerPanel(DesignerPanel);  

   

  

  

   idLbl = MyForm.AddNewProLabel(MyForm,'idLbl','Kişi ID:');

   clComponent.SetupComponent(idLbl,'{"MarginBottom":550,"MarginRight":130, "Width" :

   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

   "TextHorizontalAlign":"center"}');

   adLbl = MyForm.AddNewProLabel(MyForm,'adLbl','Kişi İsmi:');

   clComponent.SetupComponent(adLbl,'{"MarginBottom":450,"MarginRight":130, "Width" :

   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

   "TextHorizontalAlign":"center"}');

   mekanLbl = MyForm.AddNewProLabel(MyForm,'mekanLbl','Alındığı Yer:');

   clComponent.SetupComponent(mekanLbl,'{"MarginBottom":350,"MarginRight":145, "Width" :

   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

   "TextHorizontalAlign":"center"}');

   zamanLbl = MyForm.AddNewProLabel(MyForm,'zamanLbl','Alınma Zamanı:');

   clComponent.SetupComponent(zamanLbl,'{"MarginBottom":250,"MarginRight":170, "Width" :

   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

   "TextHorizontalAlign":"center"}');

   kmLbl = MyForm.AddNewProLabel(MyForm,'kmLbl','Km Değeri:');

   clComponent.SetupComponent(kmLbl,'{"MarginBottom":150,"MarginRight":140, "Width" :

   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

   "TextHorizontalAlign":"center"}');

   konumLbl = MyForm.AddNewProLabel(MyForm,'konumLbl','Konumu:');

   clComponent.SetupComponent(konumLbl,'{"MarginBottom":50,"MarginRight":135, "Width" :

   500, "Height":400,"TextColor":"#000000","TextSize":14,"TextVerticalAlign":"center",

   "TextHorizontalAlign":"center"}');

   

   

   ProBtn1=MyForm.AddNewProButton(MyForm, 'ProBtn1', 'Ekle');

   clComponent.SetupComponent(ProBtn1,'{"caption":"Ekle","MarginTop":70,

   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');

   

   ProBtn2=MyForm.AddNewProButton(MyForm, 'ProBtn2', 'Güncelle');

   clComponent.SetupComponent(ProBtn2,'{"caption":"Güncelle","MarginTop":70, "MarginLeft":110,

   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');

   

   ProBtn3=MyForm.AddNewProButton(MyForm, 'ProBtn3', 'Sil');

   clComponent.SetupComponent(ProBtn3,'{"caption":"Sil","MarginTop":70,"MarginRight":110,

   "Width" :50, "Height":35,"RoundHeight":2, "RoundWidth":2,"BorderColor":"#7A3E65","BorderWidth":2}');

  

   Label1 = MyForm.AddNewProLabel(MyForm,'Label1','ARAÇ TAKİP UYGULAMASI');

   clComponent.SetupComponent(Label1,'{"Align" : "Center","MarginBottom":630,"Width" :

   500, "Height":400,"TextColor":"#000000","TextSize":20,"TextVerticalAlign":"center",

   "TextHorizontalAlign":"center"}');

   

   ProEdit1=MyForm.AddNewProEdit(MyForm, 'ProEdit1', '');

   clComponent.SetupComponent(ProEdit1,'{"Align" : "Center","MarginBottom":450,"Width" :100

   ,"Height":30,"MarginLeft":27}')

   

   ProEdit2=MyForm.AddNewProEdit(MyForm, 'ProEdit2', '');

   clComponent.SetupComponent(ProEdit2,'{"Align" : "Center","MarginBottom":350,"Width" :100

   ,"Height":30,"MarginLeft":27}');

   

   ProEdit3=MyForm.AddNewProEdit(MyForm, 'ProEdit3', 'Yıl-Ay-Gün');

   clComponent.SetupComponent(ProEdit3,'{"Align" : "Center","MarginBottom":250,"Width" :100

   ,"Height":30,"MarginLeft":27}');

   ProEdit4=MyForm.AddNewProEdit(MyForm, 'ProEdit4', '');

   clComponent.SetupComponent(ProEdit4,'{"Align" : "Center","MarginBottom":150,"Width" :100

   ,"Height":30,"MarginLeft":27}');   

  // ProEdit4.clTypeOfField=taFloat;

   

   ProEdit5=MyForm.AddNewProEdit(MyForm, 'ProEdit5', '');

   clComponent.SetupComponent(ProEdit5,'{"Align" : "Center","MarginBottom":50,"Width" :100

   ,"Height":30,"MarginLeft":27}');  

   

   ProEdit6=MyForm.AddNewProEdit(MyForm, 'ProEdit6', '');

   clComponent.SetupComponent(ProEdit6,'{"Align" : "Center","MarginBottom":550,"Width" :100

   ,"Height":30,"MarginLeft":27}'); 

   

   MyForm.AddNewEvent(ProBtn3,tbeOnClick,'DeleteFromListView');

   MyForm.AddNewEvent(ProBtn1,tbeOnClick,'InsertToDatabase');

   

   

   selectQuery = TclSqlQuery.Create(nil);

   Clomosy.DBSQLServerConnect('SQL Server', 'DESKTOP-T9RHDI8\SQLEXPRESS', 'sa', '1', 'AracTakip', 1433);

   selectQuery.Connection = Clomosy.DBSQLServerConnection;

   

   AddDataToListView;

   

   MyForm.Run;

 }