var
  sCmd: string;
  sFullFileName:  string;
  sSpecPath: string;
  Ret: Boolean;
begin
  sSpecPath:=sPath;
  if Length(sSpecPath)=0 then begin
    sSpecPath:='C:\Studio\MSSQLData\';  // 指定相關的實體檔案存放的位置
  end;
  sFullFileName:=IncludeTrailingBackslash(sSpecPath) sDBName;
  sCmd:=Format('CREATE DATABASE %s ON PRIMARY (NAME=%s, FILENAME=''%s.mdf'',SIZE=10, FILEGROWTH=2) LOG ON (NAME=%s_Log,FILENAME = ''%s.ldf'', SIZE=5, FILEGROWTH=2)',
               [sDBName, sDBName, sFullFileName, sDBName, sFullFileName ]);
  Ret:=ExecSQL(sCmd);  // 以TADOConnection.ExecSQL執行..
  if Ret then begin
    // 指定的ScriptFileName必須存在, 才進行ExecSQL的指令..
    // 你也可以把相關的SQL指令都先建立在一個ScriptFile中..
    // 例如: 包含Create Table等相關指令..
    if FileExists(sScriptFileName) then begin
      // 以外部程式OSQL.EXE執行
      // 在cmd mode裡打OSQL/?可看到詳細的指令介紹。
      Ret:=ExecSQLByScript(sScriptFileName);  
    end;
  end;
  Result:=Ret;
end;