і

uses
 ...
 jpeg;

type
    ...
    procedure ReadImgFromDB();
    procedure LoadImgToDB();
    
// Процедура завантаження зображення з бази даних
procedure TForm1.ReadImgFromDB();
 var
  jpg:TJPEGImage;
  Blob:TMemoryStream;
begin

  try

    jpg:=TJPEGImage.Create;
  
  { Створимо потік пам'яті Blob, завантажимо зображення з поля двійкових даних(blob)
      бази даних  з навою поля 'Фото' в режимі читання                                }
    Blob:=TADOBlobStream.Create(TBlobField(DM.tblAnteny.FieldByName('Фото')),bmRead);
    
  if Blob.Size = 0 then Exit;
  
    jpg.LoadFromStream(Blob);
  
  { Завантажимо ддані до компоненту TImage що розміщений на формі під назвою img1   }
    img1.Picture.Assign(jpg);
  
    jpg.Free;
    Blob.Free;

  except
   on e:Exception do 
     begin
      jpg.Free;
      Blob.Free;
     end;
end;
end;

// Процедура завантаження зображення до бази даних
procedure TForm1.LoadImgToDB();
 var
  Blob:TMemoryStream;
begin
  try
  
   if dlgOpen1.Execute then
     begin
    DM.tblAnteny.Edit;  // Переведемо таблицю в режим редагування
    
    { Створимо потік пам'яті Blob, для поля двійкових даних(blob)
      бази даних  з навою поля 'Фото' в режимі запису                                }
      Blob:=TADOBlobStream.Create(TBlobField(DM.tblAnteny.FieldByName('Фото')),bmWrite);
    
    { Завантажимо зображення в потік Blob із файлу, що вибрали в 
      діалозі відкриття TOpenDialog dlgOpen1                                       }
      Blob.LoadFromFile(dlgOpen1.FileName);
      Blob.Free;
      DM.tblAnteny.Post; // Застосуємо зміни для таблиці
   end;
  except
   on e:Exception do
  end;
end;