anchor.diff:         Self.Data.POMrelease.Add(pomCV);
         end;
      end;
  +
    except
     on e:Exception do
      begin
  
positive.code:       end;//if data2.Count >= 2
      end;//for i
  
    except
     strs.Free();
     strs2.Free();
  
negative.code:    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
  
     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)
  