procedure TFMain.sbSaveDocClick(Sender: TObject);
begin
  OpenDialog1.Title := 'Загрузка документации';
  OpenDialog1.Filter := 'Acrobat Reader (*.pdf)|*.pdf';
  if OpenDialog1.Execute then
  begin
    DM.ibqEmpty.close;
    DM.ibqEmpty.SQL.Clear;
    DM.ibqEmpty.SQL.Text := эupdate SERVICES_TABLE set FIELD9=:RTF where DESCRIPTION=''user manual''';
    DM.ibqEmpty.Params.ParamByName('RTF').LoadFromFile(OpenDialog1.FileName, ftblob);
    DM.ibqEmpty.ExecSQL;
    DM.ibtrPlan.CommitRetaining;
  end;
end;

        DM.ibqEmpty.Close;
        DM.ibqEmpty.SQL.Clear;
        DM.ibqEmpty.SQL.Add('select FIELD9 from SERVICES_TABLE where DESCRIPTION=''user manual''');
        DM.ibqEmpty.Open;
        DM.ibqEmpty.FetchAll;
        DM.ibqEmpty.First;
        end
  TBlobField(DM.ibqEmpty.FieldByName('FIELD9')).SaveToFile(ExtractFilePath(Application.ExeName)+'Документація.pdf');