var
B:TBlobStream;
MJpg:TJpegImage;
begin
B:=TBlobStream.create(query1.FieldbyName('Blobfield') as TBlobfield,bmRead);
MJpg:=TJpegImage.create;
try
if B.size>0 then begin
MJpg.LoadFromStream(B);
Image1.Picture.assign(MJpg);
end;
finally
B.Free;
MJpg.Free;
end;
end;
end;