anchor.diff:     else if (shPlay.trat <> nil) then
        Result := Result + 'HLEN prjezd,';
     end;
  -
  - Result := Result + '-,';
   end;
   
   ////////////////////////////////////////////////////////////////////////////////
  
positive.code:    if (TTCPORsRef(SenderPnl.Data).maus) then Result := Result + 'MAUS vlak,';
    end;
  
   if (Self.IsVlakPresun()) then
    Result := Result + 'PESU vlak<,'
   else if ((spr.rychlost = 0) and (spr.stanice = SenderOR)) then
     Result := Result + 'PESU vlak>,';
  
   if (spr.ukradeno) then
  
negative.code:   end;
  
   // reseni zruseni PRESUN soupravy, ktera jede
   if ((Self.IsVlakPresun()) and ((not Self.IsSouprava(Self.Soupravs[Self.VlakPresun])) or
       (Soupravy.soupravy[Self.VlakPresun].rychlost > 0))) then
     Self.VlakPresun := -1;
  
  