1:
2:
3:

void setInfos(Infos infos) {
  this.infos := infos;
}                    

1:
2:
3:
4:

procedure TBuild.setInfos(infos: TInfos);
begin
  Form.infos := infos;
end;                    

1:

property Infos Read FInfos write SetInfos;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

  TForm1 = class(TForm)
  private
    FInfos: TInfos;
  protected
    procedure SetInfos(Value: TInfos);
  published
    property Infos: TInfos read FInfos write SetInfos;
  end;

...

procedure TForm1.SetInfos(Value: TInfos);
begin
  if FInfos <> Value then
    FInfos := Value;
end;