[ecfisa]

Hola Paulao.

Si no te entiendo mal, esta función te va a devolver la cadena que buscas:

Código Delphi [-]
function NombreCarpeta(NomArch: string): string;
var
  TS: TStrings;
begin
  TS:= TStringList.Create;
  try
    TS.Delimiter:= '-';
    TS.DelimitedText:= NomArch;
    Result:= TS[2];
  finally
    TS.Free;
  end;
end;

Saludos.