[paufra]

A mi se me ocurre una solución. Primero pon el nombre del fichero en una variable (strNombreFichero) y haces un bulce comprobando los caracteres de la siguierte forma:

Código Delphi [-]
for intH := 1 to length(strNombreFichero) do
begin
    if strNombreFichero[intH] >= '0' and strNombreFichero[intH] <= '9' //caracteres de los numeros
        //Se añade a una vble. auxiliar
        strAux := strAux + strNombreFichero[intH]
    else
    begin
        if strAux <> '' then
        begin
            //Aqui ya tendras un numero completo, debes guardarlo, imprimirlo, lo que te haga falta. 
            strAux := ''; //Vaciar para recoger mas numeros
        end;
    end;    
end;