procedure TForm1.Button1Click(Sender: TObject);
var
 L:TstringList;
begin
  Try
    L:= TstringList.Create;
    session.GetAliasParams('NASC',L);//取得所有db alias  ex: NASC
    //session.GetDriverNames(L);     //取得所有driver name ex: oracle,sybase....
    session.DeleteAlias('NASC');
    session.AddAlias('SA','oracle',L);//新增SA alias,parameter同NASC
  finally
    L.Free;
  end;
end;

procedure TMainForm.FormCreate(Sender: TObject);
var
  MyIniFile: TIniFile;
begin
    IniFile := ExtractFilePath(Application.ExeName)   'Tas.ini';
    IF DBTAS.Connected THEN
        DBTAS.Connected := False;
    IF FileExists(IniFile) THEN
        BEGIN
            MyIniFile := TIniFile.Create(IniFile);
            WITH MyIniFile DO
                BEGIN
                    DBTAS.AliasName := ReadString('DATABASE','ALIAS NAME','BIS');
                    DBTAS.Params.Values['SERVER NAME'] := ReadString('DATABASE','SERVER NAME','BIS');
                    DBTAS.Params.Values['DATABASE NAME'] := ReadString('DATABASE','DATABASE NAME','TESTSQL');
                    DBTAS.Params.Values['USER NAME'] := ReadString('DATABASE','USER NAME','');
                    DBTAS.Params.Values['PASSWORD'] := ReadString('DATABASE','PASSWORD','');
                    DBTAS.Params.Values['BLOB SIZE'] := ReadString('DATABASE','BLOB SIZE','32');
                END;
            MyIniFile.Free;
            TRY
                DBTAS.Connected := True;
            EXCEPT
                ShowMessage('無法連結資料庫，請檢查資料庫設定 !!');
            END;
        END
    ELSE
        BEGIN
            ShowMessage('資料庫關聯未建立，請先行設定資料庫 !!')
        END;
end;