anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +function TF_Main.LVSelectedTexts(LV: TListView; single: string; multiple: string):string;
  +var LI: TListItem;
  +    count: Integer;
  +begin
  + Result := '';
  + count := 0;
  + for LI in LV.Items do
  +  begin
  +   if (LI.Selected) then
  +    begin
  +     Result := Result + LI.Caption + ', ';
  +     Inc(count);
  +    end;
  +  end;
  + Result := LeftStr(Result, Length(Result)-2);
  +
  + if (count = 1) then
  +   Result := single + ' ' + Result
  + else
  +   Result := multiple + ' ' + Result;
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
   initialization
     SystemData := TSystem.Create();
   
  
positive.code: procedure TF_Main.B_mJC_RemoveClick(Sender: TObject);
  var mjcs: string;
      LI: TListItem;
      count: Integer;
      i: Integer;
  begin
   if (Self.LV_MultiJC.Selected = nil) then Exit();
  
   mjcs := '';
   count := 0;
   for LI in Self.LV_MultiJC.Items do
    begin
     if (LI.Selected) then
      begin
       mjcs := mjcs + LI.Caption + ', ';
       Inc(count);
      end;
    end;
   mjcs := LeftStr(mjcs, Length(mjcs)-2);
  
   if (count = 1) then
     mjcs := 'cestu ' + mjcs
   else
     mjcs := 'cesty ' + mjcs;
  
   if (Application.MessageBox(PChar('Opravdu smazat '+mjcs+'?'), '?', MB_YESNO OR MB_ICONQUESTION) = mrYes) then
    begin
  
negative.code:     procedure UpdateSystemButtons();
      procedure CheckNasobicWidth();
      function SoupravySelectedCount():Integer;
      function LVSelectedTexts(LV: TListView; single: string; multiple: string):string;
  
      // RCS
      procedure OnRCSStart(Sender:TObject);
  