anchor.diff:     HVDb.Remove(addr);
    except
      on E:Exception do
  -     ORTCPServer.SendInfoMsg(Sender, 'Nelze smazat loko - '+E.Message)
  +     Self.SendLn(Sender, 'HV;REMOVE;'+IntToStr(addr)+';ERR;'+E.Message);
    end;
   
  - ORTCPServer.SendInfoMsg(Sender, 'Loko '+IntToStr(addr)+' smazáno');
  + Self.SendLn(Sender, 'HV;REMOVE;'+IntToStr(addr)+';OK');
   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);
  +   Self.SendLn(Sender, 'HV;EDIT;-;ERR;Přístup odepřen');
      Exit;
     end;
   
    data := nil;
  + data := TStringList.Create();
  + addr := 0;
    try
  -   data := TStringList.Create();
      ExtractStringsEx(['|'], [], str, data);
      addr := StrToInt(data[4]);
      data.Free();
      if (HVDb[addr] = nil) then
       begin
  -     ORTCPServer.SendInfoMsg(Sender, 'Loko neexistuje');
  +     Self.SendLn(Sender, 'HV;EDIT;'+IntToStr(addr)+';ERR;Loko neexistuje');
        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;EDIT;'+IntToStr(addr)+';ERR;Loko se nenachází ve stanici '+Self.Name);
        Exit();
       end;
   
  
positive.code: procedure TOR.PanelHVAdd(Sender:TIDContext; str:string);
  var HV: THV;
  begin
   //kontrola opravneni klienta
   if (Self.PnlDGetRights(Sender) < write) then
    begin
     ORTCPServer.SendInfoMsg(Sender, _COM_ACCESS_DENIED);
     Exit;
    end;
  
   try
  
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;
  