unit ListClone;

interface

uses
//  SysUtils,
  RTLConsts
  ;

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

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

end.