unit ListClone;

interface

uses
//  SysUtils,
//  RTLConsts,

uses_end;

※ClassesからTListの部分だけソースをもってきて
※TListCloneと命名を変えて
※ここで定義するとよいでしょう。

※不可能ならTListCloneは使わずにTListで実行してください。
※たんにClassesをusesすると生成されるバイナリが
※大きくなるから抜き出しているだけですから。


end.