[samantha jones]

podrias poner algo como esto:

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