1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

  if imgGlas.Picture.Graphic <> nil then
  begin
  JPG := TJPEGImage.Create;
  Strm := TblobStream.Create(TBlobField(qry.Fieldbyname   ('Bild')), bmWrite);
  JPG.Assign(ImgGlas.picture);
  JPG.SaveToStream(Strm);
  qry.Post;
  jpg.free;
  strm.Free;
  end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

  JPG := TJPEGImage.Create;
  Strm := TblobStream.Create(TBlobField    (qry.Fieldbyname'Bild')), bmRead);
  JPG.LoadFromStream(Strm);
  Image := Timage.Create(self);
  ImgGlas.parent := PImage ;    
  ImgGlas.Tag := qry.FieldByName('ID').asinteger;
  ImgGlas.Picture.Assign(JPG);
  ImgGlas.IncrementalDisplay := True;
  ImgGlas.Stretch := true;
  Strm.Free;
  JPG.Free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TfrmMain.srcDataChange(Sender: TObject; Field: TField);
var
   ms  : TMemoryStream;
   pg  : TJpegImage;
begin
  if  tblM_BILD.IsNull = False then begin
       ms  := TMemoryStream.Create;
       pg  := TJpegImage.Create;
       try
         tblM_BILD.SaveToStream(ms);
           ms.Position := 0;
           pg.LoadFromStream(ms);
           img.Picture.Assign(pg);
       finally
         ms.Free;
           pg.Free;
       end;
   end
   else
       img.Picture := nil;
end;					

1:
2:

Strm := TblobStream.Create(TBlobField(qry.Fieldbyname('Bild')), bmRead);
  JPG.LoadFromStream(Strm);					

1:

  ImgGlas.Picture.Assign(JPG);