Создание нового пользователя

// первоначальная проверка, есть ли в базе данных пользотель с правами администратора,
     //если нет, то создается администратор с логином admin и паролем admin
     if VarToStr( SQLExecute('SELECT count(id) FROM users WHERE administrator=1;') ) = '0' then
     begin
         ShowMessage('Пользователя с правами Администратора не найдено, поэтому он будет создан автоматически, с логином admin и паролем admin');
         SQLExecute('INSERT INTO users (login, password, read, write, remove, search, administrator) VALUES ("admin", "admin", 1, 1, 1, 1, 1);');
         frmLogin.edUser.Text := 'admin';
         frmLogin.edPassword.Text := 'admin';
     end;

Его нужно как то переделать я так понимаю ? Только чтобы учитывал Если Nomer = 500 и name = Рома - то создаем пароль - Р