Bloqueos de Registros

[Tauhr]

Hola a todos de nuevo...
He tratado por multiples formas pero no me resulta la edicion vacia...
Expondre lo k he hecho para k me diga k hice mal:
Tengo un DataSet llamado IBDCliente:
Propiedades:
SelectSql:
select *
from CLIENTE
where CODCLI=:C
Order By CODCLI

InsertSql:
insert
into CLIENTE
(CODCLI, RUTCLI, DVCLI, RAZSOCCLI, GIROCLI,DIRECCIONCLI, CIUDADCLI, FONOCLI, FAXCLI, FECHAREGCLI, CREDASIGCLI, CREDOCUPCLI, CREDDISPCLI, ENCARGADOCLI, TIPOCLI,ESTBLOQCLI, EMAILCLI, DIASCREDCLI, FULTVTACLI, CODLPCLI, COMUNACLI)
values
(:CODCLI,:RUTCLI,:DVCLI,:RAZSOCCLI,:GIROCLI,:DIRECCIONCLI, :CIUDADCLI,:FONOCLI,:FAXCLI,:FECHAREGCLI, :CREDASIGCLI,:CREDOCUPCLI,:CREDDISPCLI,:ENCARGADOCLI, :TIPOCLI,:ESTBLOQCLI,:EMAILCLI,:DIASCREDCLI,:FULTVTACLI,:CODLPCLI, :COMUNACLI)

DeleteSql
delete
from CLIENTE
where CODCLI=:OLD_CODCLI

ModifySql
update CLIENTE
set
RUTCLI=:RUTCLI,
DVCLI=:DVCLI,
RAZSOCCLI=:RAZSOCCLI,
GIROCLI=:GIROCLI,
DIRECCIONCLI=:DIRECCIONCLI,
CIUDADCLI=:CIUDADCLI,
FONOCLI=:FONOCLI,
FAXCLI=:FAXCLI,
FECHAREGCLI=:FECHAREGCLI,
CREDASIGCLI=:CREDASIGCLI,
CREDOCUPCLI=:CREDOCUPCLI,
CREDDISPCLI=:CREDDISPCLI,
ENCARGADOCLI=:ENCARGADOCLI,
TIPOCLI=:TIPOCLI,
ESTBLOQCLI=:ESTBLOQCLI,
EMAILCLI=:EMAILCLI,
DIASCREDCLI=:DIASCREDCLI,
FULTVTACLI=:FULTVTACLI,
CODLPCLI=:CODLPCLI,
COMUNACLI=:COMUNACLI
where
CODCLI=:OLD_CODCLI

despues de seleccionar el registro
hice esto en el Dataset:

IBDCliente.Close;
IBDCliente.ModifySQL.Clear;
IBDCliente.ModifySQL.Add('Update Cliente');
IBDCliente.ModifySQL.Add('Set RazSocCli=:RazSocCli');
IBDCliente.ModifySQL.Add('Where CodCli=:C');
IBDCliente.Params.ByName('C').AsInteger:=strtointCODCLI.Text);
IBDCliente.Open;

Claramente esta malo....pero k?
o en k me ekivoke?

puchas amigos ayudeneme por favor porque estoy en una nube negra....gracias