anchor.diff:   TTCPORsRef(Panel.Data).train_edit := TTrain(train);
    TTCPORsRef(Panel.Data).train_usek := Sender;
   
  - ORTCPServer.SendLn(Panel, Self.id+';'+'SPR-EDIT;'+TTrain(train).GetPanelString());
  + Self.SendLn(Panel, 'SPR-EDIT;'+TTrain(train).GetPanelString());
   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:        // pokud je uzvatel pripojen jako superuser, muze prevzit i loko, ktere se nenachazi ve stanici
         if ((HV.Stav.stanice <> Self) and (rights < TORControlRights.superuser)) then
          begin
           Self.SendLn(Sender, 'LOK-REQ;ERR;Loko '+data[i]+' se nenachází ve stanici');
           Exit();
          end;
  
         // nelze vygenerovat token pro loko, ktere je uz v regulatoru
         if ((HV.Stav.regulators.Count > 0) and (rights < TORControlRights.superuser)) then
          begin
           Self.SendLn(Sender, 'LOK-REQ;ERR;Loko '+data[i]+' již otevřeno v regulátoru');
           Exit();
          end;
        end;//for i
  
  
       // kontrola OK -> odesleme panelu zpravu o tom, ze je vse OK
       Self.SendLn(Sender, 'LOK-REQ;OK;');
  
       // vsem ostatnim panelum jeste posleme, ze doslo ke zruseni zadosti
       for i := 0 to Self.Connected.Count-1 do
         if ((Self.Connected[i].Rights >= TORControlRights.read) and (Self.Connected[i].Panel <> Sender)) then
          Self.SendLn(Self.Connected[i].Panel, 'LOK-REQ;CANCEL;');
  
       // lokomotivy priradime regulatoru
       for i := 0 to data.Count-1 do
  