procedure TListItem.MouseUp(const Button: TMouseButton; const Shift: TShiftState; const MousePos: TPointF);
var
I: Integer;
begin
for I := 0 to FItemList.Count - 1 do
if (FItemList[I] <> nil) and FItemList[I].Visible then//当I=6时,出的错误.
FItemList[I].MouseUp(Button, Shift, MousePos);
end;