pic:tmemorystream;
jpg:TJpegImage;
begin
pic:=tmemorystream.Create;
jpg:=TJpegImage.Create;
try
with ADOQuery1 do
begin
TBlobField(FieldByName('img')).SaveToStream(pic);
end;
pic.Position:=0;
jpg.LoadFromStream(pic);
Image1.Picture.Bitmap.Assign(jpg);
finally
pic.Free;
jpg.Free;
end;