[W527] Private classes are not checked

W527 is not used for private classes

[code]
unit W527Private;

interface

implementation

type
TBar = class(TObject)
private
procedure SetReadOnly(Value: Boolean);
published
property ReadOnly: Boolean write SetReadOnly;
end;

procedure TBar.SetReadOnly(Value: Boolean);
begin
ReadOnly := Value;
end;

end.
[code]