解决方法
我使用他们：
>将insert enumerators转换为不实现它们的VCL类。
>到enhance VCL类。
>添加方法到TStrings类，所以我可以在my derived lists和TStringList中使用相同的方法。
TGpStringListHelper = class helper for TStringList
public
function Last: string;
function Contains(const s: string): boolean;
function FetchObject(const s: string): TObject;
procedure Sort;
procedure Remove(const s: string);
end; { TGpStringListHelper }
>简化对记录字段和remove casting的访问。