把ole控件中内容保存到access中，应该怎么做（还可以读取）

Question

把ole控件中内容保存到access中，应该怎么做（还可以读取）

Answer 1

procedure TLogonForm.Table1DataChange(Sender: TObject; Field: TField);
Var stream : TMemoryStream;
    rc     : TRect;
begin
  If Not Table1.Active Then Exit;
  If ( Table1.State = dsInsert ) Then
  Begin
    OleContainer1.DestroyObject;
    OleContainer1.Refresh;
    Exit;
  end;  If Not ( Table1.State In [ dsBrowse, dsEdit, dsSetKey ] ) Then Exit;
  stream := TMemoryStream.Create;
  try
    Table1.FieldByName('MEMO').SaveToStream( stream );    stream.Seek( 0, 0 );
    OleContainer1.LoadFromStream( stream );
  Finally
    stream.Free;
  End;
  OleContainer1.Refresh;
end;

Answer 2

to: cg1120(代码最优化－§思念是种果实，甜中带酸§) 
  该程序有点问题啊