List.Last() called wrong List.First()

Author: GerryFerdinandus

source/bencode.pas

@@ -337,7 +337,7 @@ procedure TBEncodedDataList.Insert(Index: Integer; AClass: TBEncodedData);
 
 function TBEncodedDataList.Last: TBEncodedData;
 begin
-  Result := TBEncodedData(inherited First);
+  Result := TBEncodedData(inherited Last);
 end;
 
 function TBEncodedDataList.Remove(AClass: TBEncodedData): Integer;