DBRichEdit causing EDataBaseError on Dynamically loaded Frame

I Have a TFrame that i load dynamically on a Form. On that Frame, i have a
TDBRichEdit, an ADOQuery and a DataSource.When the DBRichEdit looses the
focus, i always get an EDataBaseError saying "ADOQuery1 not in Edit or
insert mode".

Here's the code in the Frame :

constructor TFrame2.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  with ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT CieComment'); // DataField of the DBRichEdit
    SQL.Add('FROM Society');
    SQL.Add('WHERE IdFile = 7');
    Open;
  end;
end;

destructor TFrame2.Destroy;
begin
  ADOQuery1.Close;
  inherited;
end;

Here's the code in the Form :

procedure TForm1.FormCreate(Sender: TObject);
begin
  ADOConnection1.Open;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ADOConnection1.Close;
  Release;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyComponent: TComponent;
begin
  MyComponent := TFrame2.Create(Self);
  with MyComponent as TFrame do
  begin
    Parent := Panel1;
    Align := alClient;
    SetFocus;
  end;
end;

initialization
  RegisterClasses([TFrame2]);

After Clicking on Button1, the Frame(with the DBRichEdit) Loads perfectly,
but if i click in the DBRichEdit and without modifying anything in it, i
click somewhere else, i get en error.

Thanks in advance for any help

Charles