anchor.diff:     majitel: string;
      oznaceni: string;
      poznamka: string;
  -   trida: THVClass;
  +   typ: THVType;
      maxRychlost: Cardinal;
   
      POMtake: TList<THVPomCV>; // seznam POM pri prevzeti do automatu
  
positive.code:  ExtractStringsEx(['|'], [], data, str);
  
   try
    Self.Data.Nazev       := str[0];
    Self.Data.Majitel     := str[1];
    Self.Data.Oznaceni    := str[2];
    Self.Data.Poznamka    := str[3];
    Self.fadresa          := StrToInt(str[4]);
    Self.Data.Trida       := THVClass(StrToInt(str[5]));
    Self.Stav.StanovisteA := THVStanoviste(StrToInt(str[7]));
  
    maxFunc := Min(Length(str[8])-1, _HV_FUNC_MAX);
  
negative.code:   TFunkce = array[0.._HV_FUNC_MAX] of boolean;
    TPomStatus = (released = 0, pc = 1, progr = 2, error = 3);
  
    // typ hnaciho vozidla
    THVType = (parni = 0, diesel = 1, motor = 2, elektro = 3);
  
    // mod posilani dat hnaciho vozidla klientovi
    // full: s POM
  