procedure TForm1.FormActivate(Sender: TObject);
begin
  with Session do
   begin
     ConfigMode := cmSession;
     try
       AddStandardAlias( 'alph',
                         ExtractFilePath(ParamStr(0)),
                         'paradox');
       Table1.Active:=True;
             AddStandardAlias( 'tema',
                         ExtractFilePath(ParamStr(0)),
                         'paradox');
       Table2.Active:=True;
     finally
      ConfigMode := cmAll;
     end;
 end;