MyList: TList<TMyRecord>;
 MyRecord: TMyRecord;

type
 TMyRecord = record
   Sum, Num: Integer;
 end;

 MyList := TList<TMyRecord>.Create;
     MyRecord.Sum := Sum;
     MyRecord.Num := Num;
     MyList.Add(MyRecord);

 FList := TList<TMyRecord>.Create(
   TComparer<TMyRecord>.Construct(
     function (const A, B: TMyRecord): Integer
     begin
       Result := Integer(A.Sum) - Integer(B.Sum);
     end)
   );