Mensaje de Error al borrar registro

[sac]

Hola amigos tengo un problema cuando borro un registro.
la sintaxis es ésta:

Código Delphi [-]
DM.Q_BorrarRegistro.Close;
      DM.Q_BorrarRegistro.SQL.Clear;
      DM.Q_BorrarRegistro.SQL.Add('Delete');
      DM.Q_BorrarRegistro.SQL.Add('From Comercios');
      DM.Q_BorrarRegistro.SQL.Add('Where (NameComercio =:Borrando)');

      DM.Q_BorrarRegistro.parambyname('Borrando').asString:= ComercioaEliminar.Text;

      DM.Q_BorrarRegistro.Active:=true;

El registro lo borra tal como lo pido pero me sale un mensaje de error diciendo:
ENoResultSet with message "Error creating cursor handle".

Me pueden explicar como hacer para que no aparezca éste mensaje? Gracias.

[Casimiro Notevi]

Código Delphi [-]
DM.Q_BorrarRegistro.Active:=true;

No es un select, el active hace como un open. Debes ejecutar la sql.

Código Delphi [-]
DM.Q_BorrarRegistro.ExecSql

[sac]

Gracias Casimiro. Ahora si anda todo bien