anchor.diff:  
   procedure TOR.PanelHVRemove(Sender:TIDContext; addr:Integer);
   begin
  - //kontrola opravneni klienta
    if (Self.PnlDGetRights(Sender) < write) then
     begin
  -   ORTCPServer.SendInfoMsg(Sender, _COM_ACCESS_DENIED);
  -   Exit;
  +   Self.SendLn(Sender, 'HV;REMOVE;'+IntToStr(addr)+';ERR;Přístup odepřen');
  +   Exit();
     end;
    if (HVDb[addr] = nil) then
     begin
  -   ORTCPServer.SendInfoMsg(Sender, 'Loko neexsituje');
  +   Self.SendLn(Sender, 'HV;REMOVE;'+IntToStr(addr)+';ERR;Loko neexsituje');
      Exit();
     end;
    if (HVDb[addr].Stav.stanice <> self) then
     begin
  -   ORTCPServer.SendInfoMsg(Sender, 'Loko se nenachází ve stanici '+Self.Name);
  +   Self.SendLn(Sender, 'HV;REMOVE;'+IntToStr(addr)+';ERR;Loko se nenachází ve stanici '+Self.Name);
      Exit();
     end;
   
  
positive.code:    HVDb.Remove(addr);
   except
     on E:Exception do
       ORTCPServer.SendInfoMsg(Sender, 'Nelze smazat loko - '+E.Message)
   end;
  
   ORTCPServer.SendInfoMsg(Sender, 'Loko '+IntToStr(addr)+' smazáno');
  end;
  
  procedure TOR.PanelHVEdit(Sender:TIDContext; str:string);
  var data:TStrings;
      addr:Integer;
  begin
   //kontrola opravneni klienta
   if (Self.PnlDGetRights(Sender) < write) then
    begin
     ORTCPServer.SendInfoMsg(Sender, _COM_ACCESS_DENIED);
     Exit;
    end;
  
   data := nil;
   try
     data := TStringList.Create();
     ExtractStringsEx(['|'], [], str, data);
     addr := StrToInt(data[4]);
     data.Free();
     if (HVDb[addr] = nil) then
      begin
       ORTCPServer.SendInfoMsg(Sender, 'Loko neexistuje');
       Exit();
      end;
     if (HVDb[addr].Stav.stanice <> self) then
      begin
       ORTCPServer.SendInfoMsg(Sender, 'Loko se nenachází ve stanici '+Self.Name);
       Exit();
      end;
  
  
negative.code:    if (HVDb[addr].acquired) then
       HVDb[addr].StavFunctionsToSlotFunctions(TTrakce.Callback(), TTrakce.Callback());
  
     Self.SendLn(Sender, 'HV;EDIT;'+IntToStr(addr)+';OK');
   except
     on e:Exception do
      begin
       Self.SendLn(Sender, 'HV;EDIT;'+IntToStr(addr)+';ERR;'+E.Message);
       if (Assigned(data)) then data.Free();
      end;
   end;
  