Оформил: 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;