procedure TForm1.Button1Click(Sender: TObject);begin ADOCommand1.CommandText := 'Use DataBaseName'; ADOCommand1.Execute; ADOCommand1.CommandText := 'Exec SP_AddUser ' + QuotedStr('Username'); ADOCommand1.Execute;end;