anchor.diff:       Result := Result + '-,';
    end;
   
  - if (Self.SprPredict > -1) then
  + if ((Self.SprPredict > -1) and (Self.UsekStav.stanicni_kolej)) then
      Result := Result + 'PODJ,-,';
   
    Result := Result + 'STIT,VYL,';
  
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:  if (spr.ukradeno) then
     Result := Result + 'VEZMI vlak,';
  
   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
  