function sortBySizeProcAsc(Item1, Item2: Pointer): Integer;
    var
      memLeak1:TMemoryLeak;
      memLeak2:TMemoryLeak;
    begin
      memLeak1:= TMemoryLeak(Item1);
      memLeak2:= TMemoryLeak(Item2);
      if memLeak1.Size=memLeak2.Size then
        Result:=0
      else if memLeak1.Size<memLeak2.Size then
        Result:=-1
      else if memLeak1.Size>memLeak2.Size then
        Result:=1;
    end;