Erro desconhecido firedac Delphi 7

TRY
   dmprincipal.qBanco1.Close;
   dmprincipal.qBanco1.SQL.Text:='SELECT TABLE_NAME,TABLE_ROWS,DATA_LENGTH FROM information_schema.tables WHERE table_schema = '+eBD.Text;
   dmprincipal.qBanco1.Open;

   dmprincipal.qBanco2.Close;
   dmprincipal.qBanco2.SQL.Text:='SELECT TABLE_NAME,TABLE_ROWS,DATA_LENGTH FROM information_schema.tables WHERE table_schema = teste_bhsoft';
   dmprincipal.qBanco2.Open;

   While not  dmprincipal.qBanco1.Eof do begin
    While not  dmprincipal.qBanco2.Eof do begin

    if (dmprincipal.qBanco1.FieldByName('TABLE_NAME').AsString <> dmprincipal.qBanco2.FieldByName('TABLE_NAME').AsString) OR (dmprincipal.qBanco1.FieldByName('TABLE_ROWS').AsString <> dmprincipal.qBanco2.FieldByName('TABLE_ROWS').AsString) OR (dmprincipal.qBanco1.FieldByName('DATA_LENGTH').AsString <> dmprincipal.qBanco2.FieldByName('DATA_LENGTH').AsString) THEN
    mLog.Lines.Append('Erro na tabela'+dmprincipal.qBanco1.FieldByName('TABLE_NAME').AsString);

    dmprincipal.qBanco1.Next;
    dmprincipal.qBanco2.Next;
    end;
   end;
   EXCEPT
   END;