OpenDialog->FileName, как получить рабочий каталог?

 if (!DirectoryExists("Тот каталог что нужен"))
 {
 if (!CreateDir("Тот каталог что нужен"))
 throw Exception("he he");
 }
 
 ofstream outfile(//Имя файла нужно сюда но чтобы открыть нужно к каталогу подобраться//);
 if(!outfile) return;
 outfile <<Ето просто так;
 outfile << endl;
 outfile.close();
 
 ifstream infile("//Имя файла нужно сюда но чтобы открыть нужно к каталогу подобраться//");
 if(!infile) return;
 infile.getline(Ето тоже просто так ,50);
 infile.close();

if(OpenDialog->Execute())
{
  fileName = OpenDialog->FileName;
}

TStringList *file = new TStringList;
if(OpenDialog->Execute()) {
file->LoadFromFile(OpenDialog1->FileName);
}

    TStringList *file = new TStringList;
    if(OpenDialog1->Execute()) {
        file->LoadFromFile(OpenDialog1->FileName);
    }
    Memo1->Lines = file;

#include "fstream.h"
#include "iostream.h"
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    AnsiString fileName;
    if(OpenDialog1->Execute()) {
        fileName=OpenDialog1->FileName;
    }
    int mas[MAX_PATH];
    ifstream fin(fileName.c_str());
    int i=0;
    while(!fin.eof()){
        fin >> mas[i];
        i++;
    }
    fin.close();
}
//---------------------------------------------------------------------------