if ListView1.Items.Count>0 then
procedure TForm.PopupMenuSysPopup(Sender: TObject); begin if ListViewM.ItemIndex > -1 then begin