[Вовайн]

Запарился уже ни в какую не получается. Камрады помогите.
При нажатии на кнопку

Код:

procedure TForm1.J1Click(Sender: TObject);
begin
 Form70.Show;
 Form70.DBGrid1.DataSource:= DataModule1.DAthech;
 form70.DBImage1.DataSource:=datamodule1.DAthech;
end;

На самой форме

Код:

procedure PictureToGraphicField(D: TDataSet; F: TField);
var
     FileName: TFileName;
     Bmp: TBitmap;
     jpg: TJPEGImage;

begin
 With  datamodule1, Form70 do
  begin
   D:= F.DataSet; // множество данных, которое содержит поле F
   if D.Active then // если таблица открыта, то
    if D.RecordCount > 0 then // если в таблице есть записи, то
     if OpenPictureDialog1.Execute then // если файл картинки выбран, то
      begin
       if not (D.State in [dsEdit]) then D.Edit; // перевод таблицы в режим редактирования
       FileName:= OpenPictureDialog1.FileName; // имя файла с картинкой
       try
        Bmp:= TBitmap.Create; // создаем Bitmap в памяти
        jpg:= TJPEGImage.Create; // создаем JPEG
        jpg.CompressionQuality:= 100; // качество сжатия изображения
        jpg.Compress; // сжатие
        jpg.LoadFromFile(FileName); // загрузка
        bmp.Assign(jpg); // передача из JPEG в BMP
        F.Assign(bmp); // передача картинки из Bitmap в поле "Каринка"
        D.Post; // сохранение записи
       except // в случае исключительной ситуции делать:
        ShowMessage('Не удалось загрузить картинку.'); // сообщение об ошибке
        FreeAndNil(jpg); // освобождение памяти, занятой JPEG
        FreeAndNil(bmp); // освобождение памяти, занятой Bitmap
       end;
      end;
   end;
end;

procedure TForm70.sBitBtn1Click(Sender: TObject);
begin
PictureToGraphicField(DBImage1.DataSource.DataSet,DBImage1.DataSource.DataSet.FieldByName('Фото'));
showmessage(DBImage1.DataSource.DataSet.Name);
end;

Вот прога https://yadi.sk/d/E1Uv7Nn9fzNT6

[Alegun]

Код кривой, но рабочий. Править я его не стал, возможно вы заполняли blob-поля "каринками" заранее, а DBImage "любит" свой фомат. Вот реплика по вашему набору с пустой базой, попробуйте добавить к записям рисунки программно