anchor.diff:     if (((not Self.zadost) and (Self.parent as TBlkTrat).Zadost)) then
        Result := Result + 'OTS,';
   
  -   Result := Result + '-,';
  +   if (RightStr(Result, 2) <> '-,') then
  +     Result := Result + '-,';
     end;// case TTratZZ.souhlas
   
     TTratZZ.bezsouhas:begin
  
positive.code:    if (((not Self.zadost) and (Self.parent as TBlkTrat).Zadost)) then
       Result := Result + 'OTS,';
  
     Result := Result + '-,';
    end;
  
   end;//case
  
negative.code: interface
  
  uses IniFiles, TBlok, TechnologieJC, Menus, TOblsRizeni, SysUtils, Classes,
       RPConst, IdContext, StrUtils;
  
  type
  
  