TStringList = class;

PStringItem = ^TStringItem;
TStringItem = record
FString: string;
FObject: TObject;
//增加：
FStringData:String;
end;

PStringItemList = ^TStringItemList;
TStringItemList = array[0..MaxListSize] of TStringItem;
TStringListSortCompare = function(List: TStringList; Index1, Index2: Integer): Integer;

可能需要增加很多方法，把FStringData公开出来。。。。