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

{函数返回TList}
procedure MyFunc11();
    function TemFunc():TList<Integer>;
    var
      MyList : TList<Integer>;
    begin
      MyList := TList<Integer>.Create;
      MyList.Add(31);
      MyList.Add(21);
      Result := MyList; //返回TList
      MyList.First;     //释放
    end;
var
  List : TList<Integer>;
  I: Integer;
begin
  List := TList<Integer>.Create;//初始化
  List := TemFunc();//TList赋值
  for I := 0 to List.Count - 1 do Writeln(List[I]);
  List.Free; //释放
end;

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