Delphi - Sr

Hola a todos.

Estoy escribiendo una aplicacion en delphi 6 que maneja varias tablas de una bd. Deseo que al iniciarse la aplicacion se activen todas las tablas que están en un datamodule (DM). El codigo que he escrito para eso me da un error o no hace nada. Adjunto el codigo.

procedure TfrmMain.FormCreate(Sender: TObject);
var
I: Integer;
begin
For I := 0 to DM.ComponentCount - 1 do
begin
If (DM.Components[I] is TTable) then
(DM.Components[I] as TTable).Active := True; // Con esta linea no da error al // compilar pero no hace nada
(DM.Components[I].Name as TTable).Active := True; //Da error al compilar, Operator not // applicable to this operator type.
end;
end;

Muchas gracias por su ayuda.

Saludos

Prueba tu codigo linea a linea, pues segun yo está correcto.
Tambien prueba con:
(DM.Components[I] as TTable).Open;

E.T

Gracias por tu respuesta. Desafortunadamente, esto tampoco hace nada. Cuando cambio la linea por esta pasa exactam,ente lo mismo, nada. Coloque un if preguntando por el estado de uno de los ttables que estan en el modulo y me dice que esta activo, coloque entonces un dbgrid en la forma y lo enlace con ese ttable que aparentemente esta activo y no visualiza el contenido de la tabla.

cuanlquier ayuda sera bienvenida

Saludos

Jorge