Файл FileCtrl.hpp и указание директории

#include <FileCtrl.hpp>
UnicodeString way ;
    if(SelectDirectory("Укажите путь к папке","",way))
     Edit1->Text=way;

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Link_BD_Form.h"
#include "MainForm.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
 
TLink_BD *Link_BD;
//---------------------------------------------------------------------------
__fastcall TLink_BD::TLink_BD(TComponent* Owner)
    : TForm(Owner)
{
 
}
 AnsiString s, sp("Provider=MSDASQL.1;Persist Security Info=False;Data Source=MS Access Database;Initial Catalog=");
//---------------------------------------------------------------------------
void __fastcall TLink_BD::Button1Click(TObject *Sender)
{
UnicodeString way ;
if (CheckBox1->Checked)
     if (OpenDialog1->Execute())
     {
        Edit1->Text=OpenDialog1->FileName;
        s=OpenDialog1->FileName+';';
     }
else {
    //if(SelectDirectory("Укажите путь к папке","",way))      указание директории
    // Edit1->Text=way;
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TLink_BD::Button2Click(TObject *Sender)
{
if (CheckBox1->Checked) {
   sp=sp+s;
  Main->ADOConnection1->Connected=FALSE;
  Main->ADOConnection1->ConnectionString=sp;
  Main->ADOConnection1->Connected=TRUE;
}
else
{
Memo1->Lines->Clear();
Memo1->Lines->Add(Edit1->Text);
Memo1->Lines->SaveToFile("Folder_Link.txt");
}
 
Link_BD->Close();
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
 
#ifndef Link_BD_FormH
#define Link_BD_FormH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
#include <Vcl.ExtCtrls.hpp>
#include <Vcl.Dialogs.hpp>
//#include <FileCtrl.hpp>
//---------------------------------------------------------------------------
class TLink_BD : public TForm
{
__published:    // IDE-managed Components
    TImage *Image1;
    TEdit *Edit1;
    TLabel *Label1;
    TLabel *Label2;
    TButton *Button1;
    TButton *Button2;
    TOpenDialog *OpenDialog1;
    TCheckBox *CheckBox1;
    TMemo *Memo1;
    void __fastcall Button1Click(TObject *Sender);
    void __fastcall Button2Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TLink_BD(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TLink_BD *Link_BD;
//---------------------------------------------------------------------------
#endif