zeos + postgres загрузка blob

 kusok := 8040 shl 5; // Из BOL MS SQL: в целях увеличения производительности рекомендуется вставлять или обновлять данные фрагментами, кратными 8040 байтам.

 fs := TFileStream.Create(MyFile, fmOpenRead or fmShareDenyWrite);
 fsize := fs.Size;

 if fsize mod kusok = 0 then // Редкий случай, но кто знает...
  kol_vo := fsize div kusok
 else // наиболее распрастраненный случай
  kol_vo := Trunc(fsize / kusok) + 1;


 ProgressBar1.Max := kol_vo;
 ADOCommand1.ExecuteOptions := ADOCommand1.ExecuteOptions + [eoAsyncExecute];

 try
  for i := 1 to kol_vo do
  begin
   ms := TMemoryStream.Create();

   try
    if fsize - fs.Position < kusok then kusok := fsize - fs.Position;
    ms.CopyFrom(fs, kusok);
    ADOCommand1.CommandText := 'update Blobs set BigBlob .write (:bin, NULL, 0) where BlobID = ident_current(''Docs'')';
    ADOCommand1.Parameters[0].LoadFromStream(ms, ftBlob);
    ADOCommand1.Execute;

    while stExecuting in ADOCommand1.States do
    begin
     if flag_cancel then exit;
     Application.ProcessMessages;
     Sleep(2);
    end;

    ProgressBar1.StepIt;
   finally
    ms.Free;
   end;
  end; // for i := 1 to kol_vo

 finally
  fs.Free;
  if flag_cancel then PostMessage(Self.Handle, WM_SYSCOMMAND, SC_CLOSE, 0);
 end;