procedure TForm1.Button1Click(Sender: TObject);
var
s1:tStream;
filtro :string;
begin
frxPDFExport1.FileName := 'c:\Test.pdf';
frxReport1.PrepareReport();
frxReport1.Export(frxPDFExport1);
UniQueryFichaDoc.close;
UniQueryFichaDoc.SQL.Clear;
UniQueryFichaDoc.SQL.Add('Insert into fichadoc (REGPAC, TIPODOCUMENTO, DOC, MEDPRES)');
UniQueryFichaDoc.SQL.Add('VALUES (:REGPAC, :TIPODOCUMENTO, OC, :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;