Код:

procedure TForm10.sButton4Click(Sender: TObject);
var
Blob:TMemoryStream;
begin
try
if OpenPictureDialog1.Execute then
begin
ADOQuery1.Edit;
TBLOBField(ADOQuery1.FieldByName('Фото')).LoadFromFile(OpenPictureDialog1.FileName);
ADOQuery1.Post;
ADOQuery1.Refresh;
end;
except
on e:Exception do
end;
end;
 
 
procedure TForm10.sButton5Click(Sender: TObject);
var
jpg:TJPEGImage;
Blob:TMemoryStream;
bmp:TBitmap;
begin
try
bmp:=TBitmap.Create;
jpg:=TJPEGImage.Create;
ADOQuery1.First;
Blob:=TADOBlobStream.Create(TBlobField(ADOQuery1.FieldByName('Фото')),bmRead);
jpg.LoadFromStream(Blob);
DBImage1.Picture.Assign(jpg);
 ADOQuery1.Post;
ADOQuery1.Refresh;
jpg.Free;
Blob.Free;
bmp.Free;
except
on e:Exception do
begin
jpg.Free;
Blob.Free;
bmp.Free;
end;
end;
end;