BLOB поле записать в файл

    DataSource1.DataSet.Insert;
    DataSource1.DataSet.Post;
 
 
// Загружаем из файла ener_40L100.pdf в поле Blob (или любой другой бинарный файл)
procedure TForm1.Button2Click(Sender: TObject);
begin
    DataSource1.DataSet.Insert;
    TBlobField(Table1.FieldByName('DXF_SAKAS')).LoadFromFile('E:\Sakasi\Заказчик\Energy\UP_40\ener_40L1.pdf');
    DataSource1.DataSet.Post;
end;
 
// Пишем из поля Blob в файл ener_40L100.pdf (или в любой другой бинарный файл)
procedure TForm1.Button300Click(Sender: TObject);
begin
   TBlobField(Table1.FieldByName('DXF_SAKAS')).SaveToFile('E:\Sakasi\Заказчик\Energy\UP_40\ener_40L100.pdf');
end;

// Загружаем из файла любого типа в поле Blob
procedure TForm1.Button2Click(Sender: TObject);
var
  S, S_N:string;
 
begin
      if OpenDialog_Rar.Execute then
      BEGIN
          S := OpenDialog_Rar.FileName;
          S_N:=ExtractFileName(OpenDialog_Rar.FileName);
    Table1.Edit;
    TBlobField(DataSource1.DataSet.FieldByName('DXF_SAKAS')).LoadFromFile(S);
       DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString:=S_N; // сохраним имя файла для правильности его 
                                                                                                                 // извлечения
    Table1.Post;
    END;
end;
 
// Пишем из поля Blob в файл File_Blob.rar
procedure TForm1.Button300Click(Sender: TObject);
var
  S_N:string;
begin
   if DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString<>'' then
   begin
       S_N := DBGrid1.DataSource.DataSet.FieldByName('File_Rar').AsString; // вытащим под тем именем что и сохраняли в БД
       TBlobField(DataSource1.DataSet.FieldByName('DXF_SAKAS')).SaveToFile('E:\PETROVICH_CYBD\File_BlobWrite\'+S_N);
   end
   else
      showmessage('В этой строке файлы не прикреплены!!!');
end;