Форма авторизации + fsMDIForm + fsMDIChild

#ifndef AuthH
#define AuthH
 
extern String sUser; // это только declaration
extern String sPass;
 
#endif

void __fastcall TLoginForm::Button1Click(TObject *Sender)
{
    // Авторизация успешна? Запоминаем:
    sUser = editUser->Text;
    sPass = editPass->Text;
 
    ModalResult = mrOk; // и закрываем форму авторизации
}

// ---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Auth.h"
#include "Unit3.h"
#include "Unit1.h"
 
String sUser; // Вот definition этих переменных
String sPass;
 
// ---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
 
// ---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner) : TForm(Owner)
{
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm3::FormClose(TObject *Sender, TCloseAction &Action)
{
    Action = caFree;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm3::btnShowCredentialsClick(TObject *Sender)
{
    ShowMessage(String().sprintf(L"Юзер: %s\nПароль: %s\n", sUser, sPass));
}
// ---------------------------------------------------------------------------

#ifndef logindataH
#define logindataH
extern String init_user;
extern String init_pass;
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "regform.h"
#include "IniFiles.hpp"
#pragma package(smart_init)
#pragma resource "*.dfm"
#include "logindata.h"
TForm2 *Form2;
TIniFile *Ini1 = new TIniFile(ExtractFilePath(Application->ExeName ) + "config.ini");
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 if (Edit1->Text!=""&&Edit2->Text!="") {
init_user = Edit1->Text;
init_pass = Edit2->Text;
//ADOQuery1->Блаблабла;
if (ADOQuery1->RecordCount>0) {
 
 
    ModalResult = mrOk;
 
}
else
{
 
MessageBox(0,L"Невірний логін або пароль!",L"Увага!", MB_OK + MB_ICONWARNING);
}
}
else
{
MessageBox(0,L"Невірний логін або пароль!",L"Увага!", MB_OK + MB_ICONWARNING);
}
}
 
bool __fastcall TForm2::Execute()
{
    bool Result;
    TForm2 *LoginForm = new TForm2(NULL);
    try
    {
        Result = (LoginForm->ShowModal() == mrOk);
    }
    __finally
    {
        delete LoginForm;
    }
    return Result;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button3Click(TObject *Sender)
{
 ModalResult = mrClose;
}