[Neftali [Germán.Estévez]]

Prueba con algo como esto:

Código Delphi [-]
  for i := 0 to (ComponentCount - 1) do begin
    if (Components[i] is TADOTable) then begin
      // Nombre --> Components[i].Name;
      TADOTable(Components[i]).Open;
    end;
  end;

Lo único que debe hacer es cambiar las dos referencias a TADOTable por TZTable (No recuerdo cómo se llama el componente de tablas d zeos )