?»??»?procedure TForm1.Button8Click(Sender: TObject);
var
  Word_MemoryStream :TMemoryStream;
begin
  Qt1.Append;
  Qt1.FieldByName('CustID').AsString:='T001';
  Qt1.FieldByName('MarkNo').AsString:=FormatDateTime('dd_hhmmss',now);

  //³Ð«Ø¤å¥ó¬y¡G
  Word_MemoryStream:=TMemoryStream.Create;
  Word_MemoryStream.Position:=0;

  OleWord.SaveToStream(Word_MemoryStream);

  //«O¦s¨ì¸ê®Æ®wªºImageÄæ¦ì¡G
  TBlobField(Qt1.FieldByName('FrontImg')).LoadFromStream(Word_MemoryStream);

  //ÄÀ©ñ¤å¥ó¬y¡G
  Word_MemoryStream.Free;

  Qt1.Post;

  if Qt1.FieldByName('FrontImg').IsNull then showmessage('Not Save');
end;

procedure TForm1.Button9Click(Sender: TObject);
var
  Word_MemoryStream:TMemoryStream;
begin
  if Not Qt1.FieldByName('FrontImg').IsNull then begin

    //³Ð«Ø¤å¥ó¬y¡G
    Word_MemoryStream:=TMemoryStream.Create;
    Word_MemoryStream.Position:=0;

    //±q¸ê®Æ®wŪ¨ú¤å¥ó¨ì¥»°O¾ÐÅé¡G
    TBlobField(Qt1.FieldByName('FrontImg')).SaveToStream(Word_MemoryStream);

    Word_MemoryStream.Position:=0;
    DBOleWord.LoadFromStream(Word_MemoryStream);

    //ÄÀ©ñ¤å¥ó¬y¡G
    Word_MemoryStream.Free;

  end;
end;