¿BCB6 Como Cambiar valor Variable que esta en otra unit?

[JXJ]

Tengo este problema que no entiendo.

tengo un form principal desde el cual llamo una funcion void

void __fastcall inicializa()
{
      DirUserDoc = "super mira nada mas";
}

que esta en otra unit
este header tiene una variable strign DirUserDoc pero no se muestra el cambio.
al llamarla desde el form principal no se muestra el texto

Obvio en delphi si puedo hacer esto de llamar procedures funciones que modifican variables
y obtener su valor desde cualquier unit
pogo el code de las units y sus headers.

Header principal que llama a la funcion en otro archivos unit

//---------------------------------------------------------------------------

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
public:        // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

Unit principal que llama a la funcion en otro archivos unit

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include <String>
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

/*
    Form2 = new TForm2(Application);
    Form2->ShowModal();
    delete Form2;
}
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
TForm2 *Form2;

 Form2 = new TForm2( Application );
  try
  {
        Form2->Label1->Caption = "dasdsads";
    Form2->mivar = "mnega";

    Form2->ShowModal();
      ShowMessage(Form2->mivar);
  }
  __finally
    {
    Form2->Free();


    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  inicializa; // desde la funcion se debe de cambir el valor de un string pero no lo cambia sale en blanco

    ShowMessage(DirUserDoc);
    // esto si funciona pero son numeros
   ShowMessage( IntToStr( sum(5,5)) );
     resultadosuma = sum(40,50);    
     ShowMessage(IntToStr(resultadosuma));

}
//---------------------------------------------------------------------------

Header de la unit que tiene la funcion llamada

//---------------------------------------------------------------------------

#ifndef Unit3H
#define Unit3H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <String>

bool inicializado;
String DirUserDoc;
int resultadosuma;

void __fastcall inicializa();
void __fastcall desinicializa();
int sum(int a, int b);
//---------------------------------------------------------------------------
#endif

Unit que tiene la funcion llamada

//---------------------------------------------------------------------------


#pragma hdrstop

#include "Unit3.h"

#include <String>
#include "Unit1.h"
#include "Unit2.h"
#include <vcl.h>


//---------------------------------------------------------------------------

#pragma package(smart_init)

//---------------------------------------------------------------------------
void __fastcall inicializa()
{
      DirUserDoc = "super mira nada mas";
}

void __fastcall desinicializa()
{
    DirUserDoc = "na nanay";

}

int sum(int a, int b)
{
return(a+b);

}

gracias por su atencion, que esto si no lo entiendo