Código Delphi [-]
 UniQueryFichaDoc.ParamByName('DOC').LoadFromFile(frxPDFExport1.FileName, ftBlob);

• Que utilizas un directorio accesible por permisos para el usuario (directorio temporal)
• Que lo borras después de utilizarlo

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
s1:tStream;
filtro :string;
begin
          frxPDFExport1.FileName := 'c:\Test.pdf';
          frxReport1.PrepareReport();
          frxReport1.Export(frxPDFExport1);
          //frxReport1.SaveToStream(s1);
           UniQueryFichaDoc.close;
          UniQueryFichaDoc.SQL.Clear;
          UniQueryFichaDoc.SQL.Add('Insert into fichadoc (REGPAC, TIPODOCUMENTO, DOC, MEDPRES)');
          UniQueryFichaDoc.SQL.Add('VALUES (:REGPAC, :TIPODOCUMENTO, :DOC, :MEDPRES )');
          UniQueryFichaDoc.ParamByName('REGPAC').AsString := '2';
          UniQueryFichaDoc.ParamByName('TIPODOCUMENTO').AsString := 'RECIPE MEDICO2';
          UniQueryFichaDoc.ParamByName('DOC').LoadFromFile(frxPDFExport1.FileName, ftBlob);
          UniQueryFichaDoc.ParamByName('MEDPRES').AsString := 'MEDICO2';
          UniQueryFichaDoc.ExecSQL;

end;

Código Delphi [-]
  // Crear una query para buscar el registro
  qInsert.SQL.Add('select * from ficheros where Nombre=:nombre');
  qInsert.ParamByName('nombre').AsString := FDQuery1.FieldByName('nombre').AsString;
  qInsert.Open;
  // Utiliza un TBlobField para grabarloa disco (a la inversa de como has hecho para gusrdarlo)
  TBlobField(qInsert.FieldByName('fichero')).SaveToFile('c:\temp\fichero_salida.pdf');