La ruta es correcta la comprobe creo que el error marca por que le puse esto:
Código Delphi
[-]StrToInt(ExtractFileName(FileName))
Pero si quito StrToInt me marca lo siguiente:
Código Delphi
[-]Error: Incompatible types: got "AnsiString" expected "LongInt"