美食的俘虏穿越:统计年龄DELPHI 编程

自己写了一个POSERN类,它的属性有姓名,年龄,编号.如何实现编写初始化编程,并且统计出指定人员组的年龄总和!!!
下面是我定义的类
type
TPerson = class(TObject)
private
FAge: integer;
FName: integer;
FNo: integer;
procedure SetAge(const Value: integer);
procedure SetName(const Value: integer);
procedure SetNo(const Value: integer);
procedure Init;
public
property Age: integer read FAge write SetAge;
property Name: integer read FName write SetName;
property No: integer read FNo write SetNo;
function SaveToStream(AStream: TStream): Boolean;
function LoadFromStream(AStream: TStream): Boolean;
constructor Create;
destructor Destroy; override;
end;
procedure TPerson.Init;
begin
No:=0001;
Age:=20;
{
if No<0 then NO:=0001;
if (Age <0)or(Age>50)then Age:=20;
}
//完成初始化工作,请问我这样做初始化对吗?
end;
function TForm1.QueryTotalAge: integer;
var
Person:TPerson;
Sum:integer;
I:integer;
begin
for I:=0 to Person.No-1 do
Sum:=+Person.Age;
//统计出指定人员组的年龄总和,这个统计的对吗?
end