求一个用属性读写的简单的例子，明白怎么声明，但是不怎么结合窗体上面的

Tperson = class
  private
  Fage:Integer;
  function Getage:Integer;
  procedure setage(const value:Integer);
  public
  property age:Integer read Getage write setage;
  end;
var
  Form1: TForm1;

implementation

{$R *.dfm}
function Tperson.Getage:Integer;
begin
  Result:=Fage;
end;
  procedure Tperson.setage(const value:Integer);
  begin
  if (value >0)and(value <200) then
  Fage:=value
  else
  MessageDlg('年龄不合法',mtConfirmation,[mbOK],0);
  end;
procedure TForm1.Button1Click(Sender: TObject);
var
  s1:Tperson;
begin
  s1:=Tperson.Create;
  s1.Fage:=StrToInt(Edit1.Text);
end;

end.
不明白怎么在窗体上结合控件使用的，上面的那个值写大于200的就弹出错误的，但大于两百了就程序报错的。谁能帮忙完整一下啊。

s1.Fage:=StrToInt(Edit1.Text);

改成:

s1.age:=StrToInt(Edit1.Text);