Hola. Supongo que trabajas con archivos planos (paradox, dbase o algo similar).
Si todos los TTable están ligados a un mismo TDatabase... te bastaria con almacenar una sola vez la ruta, y luego asignarla a su propiedad Directory. Si no usas un objeto TDatabase, te recomiendo su uso, pues tenes un mayor control de este tipo de cosas.
Otra opción es hacer un ciclo que recorra los componentes del owner, y asigne la propiedad correspondiente a las tablas.
Suponiendo que todas las tablas están en un mismo formulario, bastaria algo como:
Código Delphi
[-]
Var
i : Integer;
Begin
for i := 0 to ComponentCount - 1 do
try
(components[i] as TTable).DatabaseName := LaRuta;
except
on EInvalidCast do ; end;
end;
Hasta luego.