Настройка привилегий из Delphi

[unicode]

Здравствуйте, сегодня я столкнулся с проблемой установки привилегий из моего приложения.
Вот токой код у меня:

fMain.ADOQuery.SQL.Text := 'GRANT ' + checklistboxUserPrivileges.Items + 'ON *.* TO ' + editUserName.Text + '@' + 'localhost';

что не так?

[Evgeniy26]

Может у пользователь нет прав давать привилегии. Синтаксис правильный, попробуй имя пользователя и хоста взять в ковычки:

GRANT ALL ON *.* TO 'name'@'localhost'

[unicode]

@Evgeniy26, с каких пор root не имеет прав?
checklistboxUserPrivileges.Items - здесь где то ошибка....

[Evgeniy26]

Сообщение от unicode

@Evgeniy26, с каких пор root не имеет прав?

Я от куда знаю под каким пользователем вы добавляете.
CheckListBox.Items.Strings[CheckListBox.ItemIndex]

for i:=0 to CheckListBox.Items.Count - 1 do
if CheckListBox.Checked[i] then

[unicode]

@Evgeniy26, спасибо.

[unicode]

fMain.ADOQuery.SQL.Text :='GRANT ' + checklistboxUserPrivileges.Items.Strings[checklistboxUserPrivileges.ItemIndex] + 'ON *.* TO ' + editUserName.Text + '@' + 'localhost'

как добавить скобку ' к editUserName.Text и localhost?

[Evgeniy26]

fMain.ADOQuery.SQL.Text :='GRANT ' + checklistboxUserPrivileges.Items.Strings[checklistboxUserPrivileges.ItemIndex] + 
'ON *.* TO ''' + editUserName.Text + '''@''' + 'localhost'''