const BufSize =  128  *  1024 ; //размер буфера  128  Кб
procedure FileToBlob(FileName: string; Field: TBlobField; Progress: TProgressBar)
var
  BlobS: TBlobStream;
  FilesS: TFileStream;
  Sz: integer;
  ReadSz: integer;
  Buf: pointer;
begin
  Buf:=AllocMem(BufSize);
  FileS:=TFileStream.Create(FileName,fmOpenRead or fmShareDenyWrite);
  BlobS:=TBlobStream.Create(Field,bmWrite);
  BlobS.Seek( 0 ,soFromBeginning);
  Sz:=FileS.Size;
  Progress.Max:=Ceil(Sz/BufSize);
  Progress.Position :=  0 ;
  while true do
  begin
    ReadSz:=FileS.Read(@Buf,BufSize);
    if ReadSz= 0  then break;
    BlobS.Write(@Buf,ReadSz);
    Progress.Position := Progress.Position +  1 ;
  end;
  FileS.Free;
  BlobS.Free;
  FreeMem(Buf);
end;