Gracias por el aporte
Una puntualización:
El
.Clear no hace falta porque al asignar la sentencia con
.Text estás 'limpiando' lo que hubiese escrito antes.
Lo que sí estaría bien es cerrar antes de asignar una nueva sentencia y ejecutarla, por lo que yo lo dejaría así:
Código Delphi
[-]fconectar.zquery1.SQL.Close; fconectar.ZQuery1.SQL.Text:='GRANT SELECT ON productos TO '+nombre.Text;
fconectar.zquery1.ExecSQL;