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.