delhpi 对基类变量的引用,该如何处理

delhpi 对基类变量的引用
一.建立了一个BaseForm以便后面的相同功能的窗体可以继承

//基类窗体节录如下
......
  private
  { Private declarations }

  public
  { Public declarations }

  end;

var
  Baseform: TBaseform;

implementation

uses xxx;

var
  ok{权限} : Boolean; {判断权限}

{$R *.DFM}

......

二.想实现的功能:
在继承Baseform后,希望能知道ok的值,而且能改变ok的值

type
  Form1 = class(TBaseform)
  ...... 
  private
  { Private declarations }
  procedure GetOk;

  public
  { Public declarations }

  end;

var
  Form1: TForm1 ;

implementation


{$R *.DFM}

procedure TForm1.GetOk;
begin
 if ok then ok := False; 
end;

用这样的办法,delpi会提示 ok 是一个不知道的变量.

三. 问题
1.请问上述的方法问题出在那里,是不是不能这样用?
2.请问要实现在子类中得到基类的变量值,如何实现?改变基类变量的值又应如何做?

谢谢各高手大侠出手相助.




[解决办法]

Delphi(Pascal) code

一.建立了一个BaseForm以便后面的相同功能的窗体可以继承 //基类窗体节录如下 ......   private     { Private declarations }   public     { Public declarations }   end; var   Baseform: TBaseform;   ok{权限} : Boolean;  [color=#FF0000]{在这里定义,其它单元可以访问}[/color]implementation uses xxx; var   //ok{权限} : Boolean;    [color=#FF0000] {不能定义在这个地方,其它单元不能访问} [/color]{$R *.DFM} ......