Как обратиться к файлу из FileListBox?

void __fastcall TForm6::Button1Click(TObject *Sender)
{
  ShowMessage(FileListBox1->FileName);
}

ShowMessage(FileListBox1->Items->Strings[2]);

void __fastcall TForm6::Button1Click(TObject *Sender)
{
  FileListBox1->Directory = ExtractFilePath(Application->ExeName);
  int Max = 0;
  String sMax = "";
  for(int i = 0; i < FileListBox1->Count; i++)
   {
     if((FileListBox1->Items->Strings[i]).Length() > Max)
      {
        Max = (FileListBox1->Items->Strings[i]).Length();
        sMax = FileListBox1->Items->Strings[i];
      }
   }
  ShowMessage("Файл с самым длинным именем - " + sMax + "\nДлина имени - " + IntToStr(Max));
}

#include <System.IOUtils.hpp>
// ...
 
    TStringDynArray Files = TDirectory::GetFiles(ExtractFilePath(Application->ExeName), "*.*");
    int Index = 0, maxLen = 0;
    for(int i = 0; i < Files.Length; ++i)
    {
        int curr_len = Files[i].Length();
        if(curr_len > maxLen)
        {
            Index = i; maxLen = curr_len;
        }
    }
    ShowMessage("Longest file name : " + Files[Index]);