∧,,∧　 　　 ／
　　ミ；ﾟДﾟ彡　 ＜　むしろ、こうすべきかと。
　　ﾐつ　 つ　　　＼
AAAは定型処理を手続き化してるとミナシテください

procedure SetHoge(Value: THoge);
begin
　AAA;
　FHoge := Value;
end;

construct Create(HogeValue: THoge);
begin
　AAA;
　FHoge := HogeValue;
end;