파워러브델파이 독자입니다.

파라독스 테이블을 런타임으로 생성하여 사용하고
있습니다. 런타임 생성시 비밀번호를 코드로 생성
할 수 있는 방법좀 부탁드립니다.
참고로 파라독스 파일 생성시 사용한 코드입니다.

// 학급 데이터베이스 만들기
function TfrmDm.CreateClass(const Class_Name: String;
  const IndexStr: String): Boolean;
begin
  try
    with frmDm.tbClass do
    begin
      // 테이블이 열려 있으면 닫는다.
      if Active then Close;
      // 데이터 베이스 이름과 테이블 이름을 입력한다.
      DataBaseName := ExtractFilePath(Class_Name);
      TableName := ExtractFileName(Class_Name);
      TableType := ttParadox;
      CachedUpdates := True;
      // 대상 데이터 베이스를 만든다.
      with FieldDefs do
      begin
        Clear;
        Add('HAKBUN', ftString, 10, True);  // 학번
        Add('NAME'  , ftString, 10, True);  // 이름
        Add('GUBUN', ftString,  4, True);  // 구분
        Add('TEL'   , ftString, 15, False); // 연락처
        Add('POST'  , ftString,  7, False); // 우편 번호
        Add('JUSO'  , ftString, 80, False); // 주소
      end;
      if IndexStr <> '' then
      begin
        with IndexDefs do
        begin
          Clear;
          Add('Field1Index', IndexStr, [ixPrimary, ixUnique]);
        end;
      end;
      CreateTable;
    end;
    except on e:exception do
    begin
      Result := False;
      // 음향 효과내기
      sndPlaySound('Error.wav', SND_ASYNC);
      ShowMessage(e.message);
      Exit;
    end;
  end;
  Result := True;
end;