从TList 复制数据,到另一个TList

var
AList,BList:TList;

//实现把AList,复制到BList内
BList.Assign(AList,laCopy);
TList.Assign声明:
procedure Assign(ListA: TList; AOperator: TListAssignOp; ListB: TList);
TListAssignOp = (laCopy, laAnd, laOr, laXor, laSrcUnique, laDestUnique);
谢谢杭州Vincent 指点!