property Value: Integer read GetValue write SetValue stored IsValueStored;

其中

function TSub.IsValueStored: Boolean;
begin
  Result := (FValue <> 0) or (FMain = nil);
end;

我看对了。