Eliminacion de registros

[rudydelperu]

Hola A todos:
Tengo un problema al querer eliminar un registro de mi base de datos, aqui va el codigo:

================================================== ========

integer resp

resp = Messagebox("Atención!","Desea eliminar el grupo?",Question!,YesNO!)

if resp = 1 then
string scodigo
scodigo = sle_codigo.text

//dw_1.deleterow(dw_1.getrow())

DELETE * FROM Grupo
WHERE codigo = scodigo;

if sqlca.sqlcode = 0 then
commit;
dw_1.Retrieve()
else
rollback;
messagebox("Error","No se pudo eliminar el registro")

end if

end if

================================================== ========

esta en el evento clicked de un boton q se llama pb_eliminar

No pueod elimianr registros, al final aparece el mensaje no sepudo eliminar el registro. La verdad no se cual sea el problema. Alguien podri ayudarme. Por favor lo necesito cuanto antes. Muchas gracias de asntemano. Salu2.

P:D: Este es un sistema q lo hizo otra persona, antes q yo llegue a trabajar aqui.