ProgressBar загрузки файла в BLOB поле

DM.ProcModifyFile.ParamByName('DATA_PAR').LoadFromFile(fil1, ftBlob);

procedure TFormFile.Button1Click(Sender: TObject);
var
fil1,str:string;
begin
with TOpenDialog.Create(nil) do
    try
      InitialDir := 'D:\';
      Title := 'Выбор файла для загрузки';
      Options := [ofFileMustExist, ofHideReadOnly, ofAllowMultiSelect, ofPathMustExist, ofNoChangeDir];
      Execute;
 
      str:=ExtractFileExt(FileName);
      Delete(str, 1, 1);
      DM.ProcModifyFile.ParamByName('filetype_par').Value:=str;
      DM.ProcModifyFile.ParamByName('filetype_par2').Value:=AnsiUpperCase (str);
 
      DM.ProcModifyFile.ParamByName('filename_par').Value:=StringReplace(ExtractFileName(filename),ExtractFileExt(filename),'',[]);
      DM.ProcModifyFile.ParamByName('filename_par2').Value:=AnsiUpperCase (StringReplace(ExtractFileName(filename),ExtractFileExt(filename),'',[]));
 
      fil1:=filename;
 
      finally
      Free;
      end;
        try
        begin
        Screen.Cursor := crHourGlass;
        DM.ProcModifyFile.ParamByName('DATA_PAR').LoadFromFile(fil1, ftBlob);
        end;
        except
    end;
 
    DM.ProcModifyFile.ParamByName('fileid_par').Value := null;
    DM.ProcModifyFile.ParamByName('choose_par').Value := 1;
 
    try
    DM.ProcModifyFile.ExecProc;
    Screen.Cursor := crDefault;
    except
     ShowMessage ('Добавить файл не получилось. Исключительная ситуация');
     DM.IBTransaction1.RollbackRetaining;
     exit;
  end;
 
  if DM.ProcModifyFile.ParamByName('result_file').Value = 0 then
  begin
    ShowMessage
      ('Данный файл уже есть в базе данных');
    exit
  end;
 
  DM.IBTransaction1.CommitRetaining;
  DM.QFile.Close;
  DM.QFile.Open;
 
end;