strict private class var: visibility
<h3><details><summary>Original Reporter info from Mantis: <small>md @mdbs99</small></summary><small>
- **Reporter name:** Marcos Douglas
</small></details></h3>
## Description:
I can access a scrict private class var in any place on the code.
## Steps to reproduce:
Consider the code below:
``` pascal
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
TFoo = class
strict private
class var FProp: Integer;
end;
implementation
procedure Test;
var
f: TFoo;
begin
f := TFoo.Create;
f.FProp := 10;
f.Free;
end;
end.
```
## Mantis conversion info:
- **Mantis ID:** 22252
- **OS:** Windows
- **OS Build:** XP/7
- **Build:** r21495
- **Platform:** i386/x86_64
- **Version:** 2.6.1
issue