请问窗体之间如何传递参数的值?

主窗体代码中cMain中有一个变量PassWordEnter(string类型)，还有一个窗体PassWordDlg上三个控件一个是:Edit1，Button1（确定），Button2（取消）。主窗体的FormActivate事件触发时，将PassWordDlg窗体显示出来，当点击Button1时，将输入到Edit1中的内容传递到cMain中的变量PassWordEnter，并在Button1的Click事件结束后，能够在主窗体的FormActivate事件中处理PassWordEnter，然后再决定如何显示主窗体。我的程序如下：//主窗体的FormActivate事件代码如下：
procedure TForm1.FormActivate(Sender: TObject);
begin
     Try
       PassWordDlg.ShowModal;
       if PassWordDlg.ModalResult<>mrOK then
       Application.Terminate
       else
       begin
          if PassWordEnter=Pass then
             suibutton2.Enabled:=True
          else suibutton2.Enabled:=False;
       end;
     Finally
       PasswordDlg.Free;
       PasswordDlg:=nil;
     end;
end;//子窗体PassWordDlg的Button1的Click事件代码如下：
procedure TPasswordDlg.Button1Click(Sender: TObject);
begin
    PassWord.Text:=cMain.Form1.PassWordEnter;
end;
运行时，无论输入的密码是对或者是错，suiButton2的Enabled属性总是为False，请问错在哪里？
   
我的意思也可以这样表述，我想写一个根据用户的不同来确定用户的权限的应用程序。请问如何做？