Si sacas todo el codigo y dejas solo el open tambien da error?
EDITO:
Estas asignando en tu campo "Cod_Cliente" del cdsClien, el valor del campo "CLIENTE" del CDSclieCOD.
Código Delphi
[-]logicanegocio.cdsClien.Params.ParamByName('Cod_cliente').AsString := logicanegocio.CDSclieCODCLIENTE.Value;
Sustituilo por
Código Delphi
[-]logicanegocio.cdsClien.Params.ParamByName('Cod_cliente').Value := logicanegocio.CDSclieCODCod_Cliente.Value;
o bien
Código Delphi
[-]logicanegocio.cdsClien.Params.ParamByName('Cod_cliente').Value := logicanegocio.CDSclieCOD.FieldByName('Cod_Cliente').Value;
PD: Pasa algo con los Tag de codigo Delphi? Me salen caracteres en blanco en el post que no se ven en la edicion del texto