Ler varios arquivos ini só pela extensão

procedure TForm1.Btn_Ler_ConfsClick(Sender: TObject);
var
  I: Integer;
begin
//Limpeza
FileListBox1.clear; 
Memo1.Lines.Clear;

//Listagem os CONF.ini no Filelistbox
FileListBox1.Directory:=ExtractFilePath(Application.ExeName);
FileListBox1.Update;


//Verifica se foi encontrado algum arquivo no Filelistbox
// Deixei o filtro *.ini

if FileListBox1.Items.Count=0 then
begin
ShowMessage('Nenhum INI encontrado');
end
else
begin
   // Realizo o FOR e leio cada arquivo
   for I := 0 to FileListBox1.Items.Count-1 do
   BEGIN
   FileListBox1.ItemIndex:=I;
   Sleep(100);
   Application.ProcessMessages;

   LerINI(FileListBox1.FileName,'CNX_BD','NOME'); //Função qual ler o arquivo e realiza o procedimento desejado
   end;


function TForm1.LerINI(Caminho_Arquivo,ID_Chave, Campo_Chave_INI: string): string;
var Arq:Tinifile;
begin
    if NOT FileExists(Caminho_Arquivo) then
    BEGIN
    ShowMessage('Arquivo de conexão, não localizado');
    EXIT;
  END;

  Try
       Arq := Tinifile.Create(Caminho_Arquivo);

       If Arq.ReadString(ID_Chave, Campo_Chave_INI, '') = '' THEN
       begin
       Result:='';
       end
       Else
       begin
       Result:=Arq.ReadString(ID_Chave, Campo_Chave_INI, '');
       Tratamento_('Coletado do ARQ ['+FileListBox1.FileName+'] O nome:'+Result );// Aqui é apenas uma fução opcional

      End;
  Except
    on E: Exception do
    begin
      ShowMessage('Erro: ' + E.Message);
      Close;
    End;
    End;
End;


end;




end;

function TForm1.Tratamento_(Valor: String): String;
begin
Memo1.Lines.Add(Valor);
end;