program MyPoint;  //指针详解
{$APPTYPE CONSOLE}
uses
  SysUtils,windows,Generics.Collections ;

{函数var参数TList}
Procedure MyFunc10();
{插入函数}
    procedure TemFunc(var TheList : TList<Integer>);
    begin
      TheList.Add(1);
      TheList.Add(2);
      TheList.Add(2);
    end;
{变量}
var
  MyList : TList<Integer>;
  I: Integer;
begin
 MyList := TList<Integer>.Create; //初始化TList
 TemFunc(MyList);  //调用
 for I := 0 to MyList.Count -1 do
 begin
   Writeln(MyList[I]);//输出
 end;
 MyList.Free;//释放
end;

{main主函数}
begin
 MyFunc10();
 Readln;//回车退出
end.