[lmikle]

Делай свойство через property.

Код:

TMyClass = class
private
  FIsAccessed : Boolean;
  FAnyProperty : Integer;
  function GetAnyProperty : Integer;
  procedure SetAnyProperty(Value : Integer);
public
  property AnyProperty : Integer read GetAnyProperty write SetAnyProperty;
end;
...

function GetAnyProperty : Integer;
begin
   FIsAccessed := True;
   Result := FAnyProperty;
end;

procedure SetAnyProperty(Value : Integer);
begin
   FIsAccessed := True;
   FAnyProperty :=  Value;
end;