SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice

[dimony]

Ha funcionado muuu bien keys, siguiendo la idea he hecho lo siguiente, por si le sirve a alguien:

Código Delphi [-]
procedure TData.HTTPRIO6BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
  Document: IXMLDocument;
  registro:integer;
  ss:TFileStream;
  Cadena: TStringList;
begin
SOAPRequest.Position := 0;
Document := TXMLDocument.Create(nil);
Document.Options := [];
Document.LoadFromStream(SOAPRequest);
Document.XML.Text := xmlDoc.FormatXMLData(Document.XML.Text);
main.richedit1.Lines.Add(StringReplace(Document.XML.Text,'','',[rfReplaceAll, rfIgnoreCase]));
Cadena := TStringList.Create;
Cadena.Add(Main.RichEdit1.Lines.Text);
Cadena.SaveToFile('c:\tmp\1.xml');
ss := TFileStream.Create('c:\tmp\1.xml',fmOpenRead);
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom(ss,ss.Size);
ss.Free;
SOAPRequest.Position := 0;
end;

Que es lo que ha sugerido KEYS pero a mi modo.
Grache Mille