Как открыть текущую директорию? Как извлечь имя файла?

SetCurrentDir(ExtractFilePath(Application->ExeName));

AnsiString CD;
CD=GetCurrentDir();
OpenDialog1->InitialDir=CD;

OpenDialog1->InitialDir = StringReplace(ExtractFileDir(ParamStr(0)), "\\.", "", TReplaceFlags() << rfReplaceAll);
if(OpenDialog1->Execute)
{
    // ...
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
    Label1->Caption = OpenDialog1->FileName;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
OpenDialog1->InitialDir = (ExtractFileDir(Application->ExeName));
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
{
    ListBox1->Items->Add(ExtractFileName(OpenDialog1->FileName));
}
}

ExtractFileDir(Application->ExeName)

GetCurrentDir()

String FilePath;
OpenDialog1->InitialDir=  ExtractFileDir(Application->ExeName);
if(OpenDialog1->Execute)
{
    FilePath= OpenDialog1->FileName;
    ListBox1->Items->Add(ExtractFileName(FilePath));
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject* Sender)
{
    String FilePath;
 
    OpenDialog1->Options= OpenDialog1->Options<<ofNoChangeDir;
    OpenDialog1->InitialDir= ExtractFileDir(Application->ExeName);
 
    if (OpenDialog1->Execute())
    {
        FilePath= OpenDialog1->FileName;
        ListBox1->Items->Add(FilePath);
    }
}