anchor.diff:   if (spr.ukradeno) then
      Result := Result + 'VEZMI vlak,';
   
  - Result := Result + 'PODJ,';
  + if (Self.UsekStav.stanicni_kolej) then
  +   Result := Result + 'PODJ,';
   
    if ((Assigned(TOR(SenderOR).hlaseni)) and (TOR(SenderOR).hlaseni.available) and
        (spr.vychoziOR <> nil) and (spr.cilovaOR <> nil) and (spr.typ <> '')) then
  
positive.code: ////////////////////////////////////////////////////////////////////////////////
  
  procedure TBlkUsek.PanelPOdj(SenderPnl:TIdContext; sprId:Integer; var podj:TPOdj);
  begin
   if ((not Self.Soupravs.Contains(sprId)) and (sprId <> Self.SprPredict)) then
    begin
     ORTCPServer.SendInfoMsg(SenderPnl, 'Souprava ji nen na seku!');
     Exit();
    end;
  
   Soupravy[sprId].AddOrUpdatePOdj(Self, podj);
  
  
negative.code:      Result := Result + '-,';
   end;
  
   if ((Self.SprPredict > -1) and (Self.UsekStav.stanicni_kolej)) then
     Result := Result + 'PODJ,-,';
  
   Result := Result + 'STIT,VYL,';
  