Código Delphi [-]for i:=0 to componentsCount -1 do if components[i] is TTable then TTable(components[i]).open;
for i:=0 to componentsCount -1 do if components[i] is TTable then TTable(components[i]).open;