type Tclass1=function(i:integer):Tcontrol;Tclass222:
public
  aaa:Tclass1;
end;
end;这些代码是什么意思?如何实现Tclass1所定义的函数?谢谢!