anchor.diff:   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.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.typ := THVType(StrToInt(str[5]));
     Self.Stav.StanovisteA := THVStanoviste(StrToInt(str[7]));
   
     maxFunc := Min(Length(str[8])-1, _HV_FUNC_MAX);
  
positive.code:   TFunkce = array[0.._HV_FUNC_MAX] of boolean;
    TPomStatus = (released = 0, pc = 1, progr = 2, error = 3);
  
    // trida hnaciho vozidla
    THVClass = (parni = 0, diesel = 1, motor = 2, elektro = 3);
  
    // mod posilani dat hnaciho vozidla klientovi
    // full: s POM
  
negative.code:    ini.WriteString(addr, 'majitel', Self.Data.Majitel);
     ini.WriteString(addr, 'oznaceni', Self.Data.Oznaceni);
     ini.WriteString(addr, 'poznamka', Self.Data.Poznamka);
     ini.WriteInteger(addr, 'trida', Integer(Self.Data.typ));
     ini.WriteInteger(addr, 'max_rychlost', Self.Data.maxRychlost);
  
     // POM pri prebirani
  