Puedes usar el evento OnShow del formulario para hacer inicializaciones y el evento OnClose para terminar:
Código Delphi
[-]
procedure TForm1.FormShow(Sender: TObject);}
begin
Table1.Active := true;
...
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Table1.Active := false;
...
end;
// Saludos