anchor.diff:    begin
      // kontrola verze protokolu
      found := false;
  -   for i := 0 to Length(_PROTO_V_ACCEPT)-1 do
  +   for j := 0 to Length(_PROTO_V_ACCEPT)-1 do
       begin
  -     if (Self.parsed[2] = _PROTO_V_ACCEPT[i]) then
  +     if (Self.parsed[2] = _PROTO_V_ACCEPT[j]) then
         begin
          found := true;
          break;
  
positive.code:   TTCPORsRef = class
      ORs:array [0.._MAX_ORREF-1] of TOR;                                         // reference na OR
      ORsCnt:Integer;                                                             // pocet referenci na OR
  
      stitek:TBlk;                                                                // blok, na kterema kutalne probiha zmena stitku
      vyluka:TBlk;                                                                // blok, na kterem aktualne probiha zmena vyluky
  
negative.code: ////////////////////////////////////////////////////////////////////////////////
  
  procedure TORTCPServer.ParseGlobal(AContext: TIdContext);
  var i, j:Integer;
      tmp:string;
      blk:TBlk;
      found:boolean;
  