anchor.diff:  
   ////////////////////////////////////////////////////////////////////////////////
   
  +procedure TBlkPrejezd.StitUPO(SenderPnl:TIdContext; SenderOR:TObject;
  +      UPO_OKCallback: TNotifyEvent; UPO_EscCallback:TNotifyEvent);
  +var upo:TUPOItems;
  +    item:TUPOItem;
  +    lines:TStrings;
  +begin
  + upo := TList<TUPOItem>.Create;
  + try
  +  if (Self.Stitek <> '') then
  +   begin
  +    item[0] := GetUPOLine('TTEK '+Self.GlobalSettings.name, taCenter, clBlack, clTeal);
  +    lines := GetLines(Self.Stitek, _UPO_LINE_LEN);
  +
  +    try
  +      item[1] := GetUPOLine(lines[0], taLeftJustify, clYellow, $A0A0A0);
  +      if (lines.Count > 1) then
  +        item[2] := GetUPOLine(lines[1], taLeftJustify, clYellow, $A0A0A0);
  +    finally
  +      lines.Free();
  +    end;
  +
  +   upo.Add(item);
  +  end;
  +
  +  ORTCPServer.UPO(SenderPnl, upo, false, UPO_OKCallback, UPO_EscCallback, SenderOR);
  + finally
  +   upo.Free();
  + end;
  +end;
  +
  +////////////////////////////////////////////////////////////////////////////////
  +
   end.//unit
   
  
positive.code:     procedure MenuZNOTClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuSTITClick(SenderPnl:TIdContext; SenderOR:TObject);
  
      // DEBUG volby:
      procedure MenuAdminZAVRENOStartClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuAdminZAVRENOStopClick(SenderPnl:TIdContext; SenderOR:TObject);
      procedure MenuAdminNUZClick(SenderPnl:TIdContext; SenderOR:TObject);
  
    public
      constructor Create(index:Integer);
      destructor Destroy(); override;
  
negative.code: interface
  
  uses IniFiles, TBlok, TechnologieJC, SysUtils, Menus, TOblsRizeni,
       Classes, TechnologieRCS, IdContext, TOblRizeni, Generics.Collections;
  
  type
   TBlkPrjMTBInputs = record
  