Hola q tal Camilo.
Puedes hacer esto:
Código Delphi
[-]procedure TfrmCargaSaldos.btnCarpetaClick(Sender: TObject);
begin
FileListBox1.Clear;
edCarpeta.Text:='';
Dir:='\';
if SelectDirectory('Seleccione la carpeta donde se localizan los archivos de Deposito',Dir,Carpeta) then
begin
FileListBox1.Directory:=Carpeta;
edCarpeta.Text:=Carpeta;
end;
end;
En un formulario coloque un TFileListBox el cual se llena con lo que contenga "carpeta", los nombre de los archivos serán colocados 1 a 1 según tengas en el directorio que se haya seleccionado.
Lo que YO haría después de esto:
Hacer un bucle para ir comparando (If-then-else) carácter x carácter en ir guardándolos hasta q se encuentre el primer CARACTER NUMERICO, en cada comparación podrías sustituir el carácter "_" por "," y almacenar esa cadena en un TMemo o un arreglo que luego de ahí lo podría grabar en archivo de texto...talvez haya otra forma mas elegante de hacerlo con menos componentes.
Espero te sirva.
Saludos.