[ecfisa]

Hola de nuevo.

Para ser mas explícito sucede por ejemplo de este modo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  DataSource1.DataSet:= ADOQuery1;
  ADOQuery1.DataSource:= DataSource1; // <- Enlace circular
end;

Saludos.