Подскажите, как можно избавиться в объектах от Set функций такого типа

property Name: string read FName write SetName;

procedure Object.SetName(Value: string);
begin
if FName<>Value then begin
FName:=Value;
Modified:=True;
end;
end;
Проблема стоит в том, что нужно устанавливать Modified только, если свойство изменилось
Пишите на kay@tut.by