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);

  //創建文件流：
  Word_MemoryStream:=TMemoryStream.Create;
  Word_MemoryStream.Position:=0;

  OleWord.SaveToStream(Word_MemoryStream);

  //保存到資料庫的Image欄位：
  TBlobField(Qt1.FieldByName('FrontImg')).LoadFromStream(Word_MemoryStream);

  //釋放文件流：
  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

    //創建文件流：
    Word_MemoryStream:=TMemoryStream.Create;
    Word_MemoryStream.Position:=0;

    //從資料庫讀取文件到本記憶體：
    TBlobField(Qt1.FieldByName('FrontImg')).SaveToStream(Word_MemoryStream);

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

    //釋放文件流：
    Word_MemoryStream.Free;

  end;
end;