atualizar form Principal

procedure TForm3.Button1Click(Sender: TObject);
var
formulario:TFrmLogin;
pNivel:Integer;
begin
//Note  o Parametro do Contructor...
Formulario:=TFrmLogin.Create(nil,pNivel);
try
  formulario.ShowModal;
  case pNivel of
   0:showmessage('Faça 0');
   1:showmessage('faça 1')
  end;
finally
  formulario.Release;
  formulario:=nil;
end;
end;

  private
    { Private declarations }
   // Ponteiro .. Não se assuste
    FNivel:PInteger;
  public
    { Public declarations }
    Constructor Create(Aowner:TComponent;out pNivel:integer);reintroduce;
  end;

constructor TFrmLogin.Create(Aowner: TComponent;out pNivel: integer);
begin
  inherited Create(Aowner);
  FNivel:=@pNivel;  // Endereço 
end;

procedure TFrmLogin.Button1Click(Sender: TObject);
begin
self.FNivel^:=strtoint(edit1.Text); // Peseudo Atribuição .. Ai entra a sua Lógica
close;
end;