Открытие файлов со схожими именами

for (int i = 1; i < MAX_POINT; i++)
   frMain->ListWes->Keys[i] = FloatToStr(100000.0+i);
 
  AnsiString FileName ="param.ini";
 
  if( FileExists( FileName ) )
  {
    TStringList *str=new TStringList();
    str->LoadFromFile( FileName );
 
    Wesy->readparam.drate          = StrToInt( str->Values["DRate"] );
    Wesy->readparam.gain           = StrToInt( str->Values["Gain"] );
    Wesy->readparam.buffer         = StrToInt( str->Values["Buffer"] );
    Wesy->readparam.id_sensor      = StrToInt( str->Values["ID_Sensor"] );
    Wesy->readparam.accuracy       = StrToFloat( str->Values["Accuracy"] );
    Wesy->readparam.scale_interval = StrToFloat( str->Values["ScaleInterval"] );
    Wesy->rkp                      = StrToFloat( str->Values["Rkp"] );
    Wesy->version                  = StrToInt  ( str->Values["Ver"] );
 
    frMain->RkpEdit->Text = FloatToStr(Wesy->rkp);
    frMain->VerEdit->Text = FloatToStr(((double)(Wesy->version))/100.0);
 
    WriteParamOnForm();
 
    for (int i = 1; i < MAX_POINT; i++)
    { Wesy->w_spline.spline[i].x = StrToFloat( str->Values["SplineX[" + IntToStr(i) + "]"]);
      Wesy->w_spline.spline[i].y = StrToFloat( str->Values["SplineY[" + IntToStr(i) + "]"]);
    }
    WriteSplineOnForm();
 
    delete str;
    LoadParamDone = true;

OpenDialog1->Filter="Файлы ini (*.ini)|*.ini";
OpenDialog1->InitialDir=GetCurrentDir();
if(OpenDialog1->Execute())
   {
      AnsiString filename = OpenDialog1->FileName;
      FileChoice->Caption="FileChoice- |"+filename;
      Твоя функция обработки файла
   }

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TStringList *list = new TStringList();
        OpenDialog1->Options.Clear();
        OpenDialog1->Options << ofFileMustExist << ofHideReadOnly << ofAllowMultiSelect << ofEnableSizing;
 
       if(OpenDialog1->Execute())
       {
 
                for(int i=0;i<OpenDialog1->Files->Count;++i)
                {
                 list->LoadFromFile(OpenDialog1->Files->Strings[i]);
                 Memo1->Lines->Add(list->Text);
                }
 
       }
       delete list;
       list = NULL;
 
}

OpenDialog1->Filter="Файлы ini (*.ini)|*.ini";
OpenDialog1->InitialDir=GetCurrentDir();
if(OpenDialog1->Execute())
   {
      AnsiString filename = OpenDialog1->FileName;
      FileChoice->Caption="FileChoice- |"+filename;
     // Твоя функция обработки файла
   }
else
{
  return;
}