anchor.diff:         // kontrola existence loko
          if (HV = nil) then
           begin
  -         ORTCPServer.SendLn(Sender, Self.id+';LOK-TOKEN;ERR;'+str[3]+';Loko '+data[i]+' neexistuje');
  +         Self.SendLn(Sender, 'LOK-TOKEN;ERR;'+str[3]+';Loko '+data[i]+' neexistuje');
            Exit();
           end;
   
  
positive.code: begin
   TTCPORsRef(Panel.Data).train_new_usek_index := trainUsekIndex;
   TTCPORsRef(Panel.Data).train_usek := Sender;
   ORTCPServer.SendLn(Panel, Self.id+';SPR-NEW;');
  end;
  
  procedure TOR.BlkEditTrain(Sender:TObject; Panel:TIdContext; train:TObject);
  
negative.code:      // nejdriv musi probihat zadost o loko
       if (Self.ORStav.reg_please = nil) then
        begin
         Self.SendLn(Sender, 'LOK-REQ;ERR;Neprobíhá žádná žádost z regulátoru');
         Exit();
        end;
  
  