Como firmar con el certificado digital un XML

[rafa1963]

Esto es lo que tengo sacado del código del compañero seccion_31.

Código Delphi [-]
function autoFirmaPath:string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  with Reg do
  begin
    RootKey := HKEY_CLASSES_ROOT;
   // if OpenKey('\afirma\shell\open\command',false) then
  // if OpenKey('c:\Pruebas\AEAT\AutoFirmaCommandLine.exe\shell\open\command',false) then
    begin
      if ValueExists('') then
        Result := Readstring('')
      else
        ShowMessage('error');
    end
    else
      ShowMessage('Error 2');
    CloseKey;
  end;
end;

LLamada desde un botón

Código Delphi [-]
var
  error:string;
begin
    if not VeriFactuD7.autoFirmar(comboCertificados.Text,xmlEnvio,xmlEnvio_signed,error)  then
      showmessage('Error: '+error)
    else
      showmessage('Archivo Firmado En '+ xmlEnvio_signed );
end;