sqlite listview çoklu seçim işlemi

[eskalibur_]

selam arkadaşlar delphide kendimi geliştirmeye çalışıyorum. uygulamamda biryerde takıldım. günlerdir uğraşıyorum aşamadım.
listviewde item objectinin button seçeneğinden selectbox kullanıyorum.
amacım: listede çoklu seçim yapıp ekle butonuna tıkladığımda seçili olan isimlerin veritabanında g_gun alanı 1 arttırmak.
sorun: birtürlü seçtiğim kayıtların g_gun alanını 1 arttıramıyorum. sürekli bütün kayıtların g_gun alanı 1 artıyor. Nasıl yapabilirim.
uygulamamın görüntüsü ve tablonun görüntüsü

Adsız.jpg (7.77 KiB) 1356 kere görüntülendi

kodun takıldığım kısmı

Kod: Tümünü seç

procedure TForm1.Button7Click(Sender: TObject);
    var
    i:integer;
  begin

      for i := 0 to Listview1.ItemCount -1 do
      if Listview1.Items[i].Checked then
       if MessageDlg('Seçili Kişilere Yevmiye Eklensinmi?', TMsgDlgType.mtConfirmation, mbYesNo, 0) =mrYes then
       begin

  dm.ayevmq.close;          
  dm.ayevmq.SQL.Clear;
  dm.ayevmq.SQL.Add('update amele set g_gun=g_gun+1');         // burada nasıl bir yol izleyebilirim.  where id=?????
  dm.ayevmq.ExecSQL;
  dm.ayevmq.Free;
  dm.ameleQ.Close;
  dm.ameleQ.Open;
       end;
end;

[cisko]

dm.ayevmq.SQL.Add('update amele set g_gun=g_gun+1 WHERE ID IN (5,8,10)');

Bu komut ID Nosu 5,8 ve 10 olanların yevmeyilerini 1 arttırır. Cevabın geciktiğini biliyorum, ama ziyaretçilerden birinin işine yarayabilir diye cevapladım...