[Toñico]

Desde el desconocimiento mas absoluto de como funciona, he visto que la segunda función es un poco distinta a la primera. Puede que sea sólo un error tipográfico, pero te escribo como creo que tendría que ser.:

Código Delphi [-]
function send_Resp_RFs_by_wm (aRF :RespuestaRegFactuSistemaFacturacionType):integer;         // Prepara la respuesta de la AEAT para
var
  pRF :^RespuestaRegFactuSistemaFacturacionType;
begin

  new(pRF);
  pRF^:=aRF;
  result:=integer(pRF)

end;