anchor.diff:     Self.ORStav.reg_please := nil;
     end
   
  -//  or;LOK-REQ;U-PLEASE;blk_id              - zadost o vydani seznamu hnacich vozidel na danem useku
  +//  or;LOK-REQ;U-PLEASE;blk_id;spr_index      - zadost o vydani seznamu hnacich vozidel na danem useku
   //  mozne odpovedi:
   //    or;LOK-REQ;U-OK;[hv1][hv2]...           - seznamu hnacich vozidel v danem useku
   //    or;LOK-REQ;U-ERR;info                   - chyba odpoved na pozadavek na seznam loko v danem useku
  
positive.code:        Exit();
        end;
  
       // generujeme zpravu s tokeny
       line := Self.id+';LOK-REQ;U-OK;{';
       for i := 0 to Soupravy.soupravy[(Blk as TBlkUsek).SoupravaL].sdata.HV.cnt-1 do
        begin
         HV := HVDb.HVozidla[Soupravy.soupravy[(Blk as TBlkUsek).SoupravaL].sdata.HV.HVs[i]];
         line := line + '[{' + HV.GetPanelLokString() + '}]';
        end;//for i
       line := line + '}';
       ORTCPServer.SendLn(Sender, line);
  
  
negative.code: // Tato procedura parsuje "LOK-REQ" z panelu.
  procedure TOR.PanelLokoReq(Sender:TIdContext; str:TStrings);
  var data:TStrings;
      i, j:Integer;
      HV:THV;
      rights:TORControlRights;
      line:string;
      Blk:TBlk;
      spri:Integer;
  begin
  //  or;LOK-REQ;PLEASE;addr1|addr2|...       - zadost o vydani tokenu
  //  or;LOK-REQ;PLEASE-U;blk_id              - zadost o vydani tokenu pro vozidla soupravy na danem techologickem bloku
  