Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure CreateDatabase(WindowsSecurity: Boolean; Username, Password: String);
 var
   ConnectionString: String;
   CommandText: String;
 begin
   if WindowsSecurity then
     ConnectionString := 'Provider=SQLOLEDB.1;' +
                         'Integrated Security=SSPI;' +
                         'Persist Security Info=False;' +
                         'Initial Catalog=master'
   else
     ConnectionString := 'Provider=SQLOLEDB.1;' +
                         'Password=' + Password + ';' +
                         'Persist Security Info=True;' +
                         'User ID=' + Username + ';' +
                         'Initial Catalog=master';

   try

     try
       ADOConnection.ConnectionString := ConnectionString;
       ADOConnection.LoginPrompt := False;
       ADOConnection.Connected := True;


       CommandText := 'CREATE DATABASE test ON ' +
                      '( NAME = test_dat,    ' +
                      'FILENAME = ''c:\program files\microsoft sql server\mssql\data\test.mdf'', ' +
                      'SIZE = 4, ' +
                      'MAXSIZE = 10, ' +
                      'FILEGROWTH = 1 )';

       ADOCommand.CommandText := CommandText;
       ADOCommand.Connection := ADOConnection;
       ADOCommand.Execute;
       MessageDlg('Database succesfully created.', mtInformation, [mbOK], 0);

     except
       on E: Exception do MessageDlg(E.Message, mtWarning, [mbOK], 0);
     end;

   finally
     ADOConnection.Connected := False;
     ADOCommand.Connection := nil;
   end;

 end;