anchor.diff:  procedure TF_Main.B_lok_deleteClick(Sender: TObject);
   var sprs: string;
       LI: TListItem;
  -    count: Integer;
       i: Integer;
   begin
    if (Self.LV_Soupravy.Selected = nil) then Exit();
    if (not Assigned(Soupravy[Self.LV_Soupravy.ItemIndex])) then Exit();
   
  - sprs := '';
  - count := 0;
  - for LI in Self.LV_Soupravy.Items do
  -  begin
  -   if ((LI.Selected) and (LI.Caption <> '')) then
  -    begin
  -     sprs := sprs + Soupravy[LI.Index].nazev + ', ';
  -     Inc(count);
  -    end;
  -  end;
  - sprs := LeftStr(sprs, Length(sprs)-2);
  -
  - if (count = 1) then
  -   sprs := 'soupravu ' + sprs
  - else
  -   sprs := 'soupravy ' + sprs;
  + sprs := Self.LVSelectedTexts(Self.LV_Soupravy, 'soupravu', 'soupravy');
   
    if (Application.MessageBox(PChar('Opravdu smazat '+sprs+'?'), '?', MB_YESNO OR MB_ICONQUESTION) = mrYes) then
     begin
  
positive.code: 
  ////////////////////////////////////////////////////////////////////////////////
  
  initialization
    SystemData := TSystem.Create();
  
  
negative.code: procedure TF_Main.B_mJC_RemoveClick(Sender: TObject);
  var mjcs: string;
      LI: TListItem;
      i: Integer;
  begin
   if (Self.LV_MultiJC.Selected = nil) then Exit();
  
   mjcs := Self.LVSelectedTexts(Self.LV_MultiJC, 'cestu', 'cesty');
  
   if (Application.MessageBox(PChar('Opravdu smazat '+mjcs+'?'), '?', MB_YESNO OR MB_ICONQUESTION) = mrYes) then
    begin
  