procedure TForm1.btnPostClick(Sender: TObject);
var
  lMemoStream : TMemoryStream;
  jpg : TJpegImage;
begin
  lMemoStream := TMemoryStream.Create;
  jpg := TJpegimage.Create;
  jpg.Assign(Img.Picture.Graphic);
  jpg.SaveToStream(lMemoStream);
  lMemoStream.Position := 0;
  TBlobField(dm1.adoqrytea.fieldbyname('image')).LoadFromStream(lMemoStream);
  dm1.adoqrytea.Post;
end;


//delphi/6723