Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
MiSesion.Active:=False;
DataBase1.Connected:=False;
MiSesion.RemoveAllPasswords;
MiSesion.AddPassword('PASA');
MiSesion.Active:=True;
Database1.Params.Clear;
Database1.Session.Name:='MiSesion';
Database1.Params.Add('PATH=D:\PRUEBAS');
Database1.Params.Add('DEFAULT DRIVER=PARADOX');
Database1.Params.Add('ENABLE BCD=FALSE');
Database1.Params.Add('USER NAME=MARCOS');
Database1.Params.Add('PASSWORD=PASA');
Database1.Params.Add('LoginPrompt=FALSE');
Database1.Connected:=True;
Table1.Open;
end;
PASA, sería la palabra de pasa de todas la tablas conectadas al mismo objeto TSession.
Un Saludo.