anchor.diff:     Poznamka:String;                                    // poznamka k HV
      Trida:THVClass;                                     // trida hnaciho vozidla - parni, diesel, motor, elektro
   
  -   POMtake : TList<THVPomCV>;                          // seznam POM pri prevzeti do automatu
  -   POMrelease : TList<THVPomCV>;                       // seznam POM pri uvolneni to rucniho rizeni
  +   POMtake:TList<THVPomCV>;                            // seznam POM pri prevzeti do automatu
  +   POMrelease:TList<THVPomCV>;                         // seznam POM pri uvolneni to rucniho rizeni
  +
  +   funcVyznam:array[0.._HV_FUNC_MAX] of string;        // seznam popisu funkci hnaciho vozidla
     end;
   
     THVNajeto = record                                // kolik bloku a metru hnaciho vozidlo najelo (vedeme si statistiky)
  
positive.code:       end;//if data2.Count >= 2
      end;//for i
  
    except
     strs.Free();
     strs2.Free();
  
negative.code:        Self.Data.POMrelease.Add(pomCV);
        end;
     end;
  
   except
    on e:Exception do
     begin
  