Código Delphi
[-]var
miarr:arrayofanexofile;
miarr1:anexofile;
if edit1.Text<>'' then
begin
MIARR1:=anexofile.create;
miarr1.mime:='application/pdf';
MIARR1.nombre:=utf8encode(extractfilename(EDIT1.Text));
MIARR1.anexo:=Encode64(tfile.ReadAllText(edit1.Text),tetUTF8);
SetLength(miarr, Length(miarr)+1);
miarr[0]:=miarr1;
SenderEnviarFactura.anexos := miarr;
end;
A falta de hacer una prueba real este es el codigo correcto para añadir un pdf de imagen de la factura.