anchor.diff:  procedure TFuncsVyznam.ParseNewItems(data:string);
   var sl:TStrings;
       str:string;
  -    i:Integer;
   begin
    sl := TStringList.Create();
    try
  
positive.code: 
  interface
  
  uses Generics.Collections, Classes, THnaciVozidlo;
  
  type
    TGeneralEvent = procedure(Sender: TObject) of object;
  
negative.code:     constructor Create(str:string); overload;
      constructor Create(popis:string; typ:THVFuncType); overload;
      function GetPanelStr():string;
  
      class function Comparer():IComparer<TFuncVyznam>;
    end;
  
    TFuncsVyznam = class
  