Hola Delphitest, yo básicamente he utilizado esta función y por el momento no me ha dado ningún problema:
Código Delphi
[-]
Function LimpiarCarNormaSEPAXML(texto: String; longitud: Integer): String;
begin
Result := Utf8Encode(Trim(Copy(texto, 1, longitud)));
end;
El fichero resutlante ha sido testeado en entidades financieras, sin mayor problema. La función que indica nasca también es una opción, yo particularmente la voy a probar también.
Espero te sirva de ayuda.
Un saludo