1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

procedure TForm3.ListView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Item: TListItem;
  HitTest: THitTests;
begin
  Item := ListView1.GetItemAt(x, y);
  HitTest := ListView1.GetHitTestInfoAt(x, y);
  if (Item <> nil) and (HitTest = [htOnStateIcon]) then
  begin
    if (item.Checked = true) then
    begin
       adocommand1.CommandText := 'insert into rechnung (kundenid,bezeichnung,netto,datum,recid) values ('+edit1.Text+',"'+item.SubItems[0]+'","'+item.SubItems[1]+'","2009-20-22",'+edit2.Text+')';
       adocommand1.Execute;
    end;
   end;
end;