procedure TForm1.lvClieck(lv: TListView);
var
p: TPoint;
r: TRect;
begin
p.X:=0;
p.Y:=0;
GetCursorPos(p) ;
p:=lv.ScreenToClient(p) ;
if Assigned(lv.Selected) then
begin
r:=lv.Selected.DisplayRect(drLabel);
if (p.X > r.Left) and
(p.Y > r.Top ) and (p.Y < r.Bottom ) then
begin
lv.Selected.Checked:=not lv.Selected.Checked;
end;
end;
end;