Al Editar un Registro me lo duplica

[webmasterplc]

Buenas, estoy tratando de editar un registro y lo que hace es que se me duplica
Base de datos MySQL
Componentes ttable MyDac

Código Delphi [-]
procedure editarcliente (clcod,clcnombre,clcrif,clcdireccion,clctelefono,clctelefono2,clccelular,clccontacto,clcciudad,clces  tado,clccorreo,clcobservaciones,clcagret:string; clcporc:Currency);
begin
with datos.tclientes do
    begin
      Close;
      Active:=False;
      Active:=True;
      Open;
      Edit;
      Append;
        FieldByname('cl_codigo').AsString := clcod;
        FieldByname('cl_descripcion').AsString := clcnombre;
        FieldByname('cl_identificacion').AsString := clcrif;
        FieldByname('cl_direccion').AsString := clcdireccion;
        FieldByname('cl_contacto').AsString := clccontacto;
        FieldByname('cl_telefono').AsString := clctelefono;
        FieldByname('cl_telefono2').AsString := clctelefono2;
        FieldByname('cl_celular').AsString := clccelular;
        FieldByname('cl_ciudad').AsString := clcciudad;
        FieldByname('cl_estado').AsString := clcestado;
        FieldByname('cl_correo').AsString := clccorreo;
        FieldByname('cl_agenteretiva').AsString := clcagret;
        FieldByname('cl_porcentajeret').AsCurrency := clcporc;
        FieldByname('cl_observaciones').AsString := clcobservaciones;

      Post;
      Close;
      Active:=False;
      MessageDlg('El Cliente Fue Modificado Exitosamente', mtCustom, [mbOK], 0);
    end;

end;

[Casimiro Noteví]

Quita el append

[Neftali [Germán.Estévez]]

Te sobran cosas en esa lista además de lo que comenta Casimiro:

Código Delphi [-]
Open;
Append;
=> Rellenar campos....
Post;
Close;

[webmasterplc]

le quito el append y no modifica
aqui la tabla

Código SQL [-]
CREATE TABLE `csclientes` (
  `cl_id` int(6) NOT NULL AUTO_INCREMENT,
  `cl_codigo` varchar(24) COLLATE utf8_bin NOT NULL,
  `cl_descripcion` varchar(160) COLLATE utf8_bin NOT NULL,
  `cl_identificacion` varchar(24) COLLATE utf8_bin NOT NULL,
  `cl_direccion` varchar(160) COLLATE utf8_bin NOT NULL,
  `cl_contacto` varchar(50) COLLATE utf8_bin DEFAULT NULL,
  `cl_telefono` varchar(50) COLLATE utf8_bin DEFAULT NULL,
  `cl_telefono2` varchar(50) COLLATE utf8_bin DEFAULT NULL,
  `cl_celular` varchar(11) COLLATE utf8_bin DEFAULT NULL,
  `cl_ciudad` varchar(20) COLLATE utf8_bin DEFAULT NULL,
  `cl_estado` varchar(20) COLLATE utf8_bin DEFAULT NULL,
  `cl_correo` varchar(50) COLLATE utf8_bin DEFAULT NULL,
  `cl_agenteretiva` enum('true','false') COLLATE utf8_bin DEFAULT 'false',
  `cl_porcentajeret` double(5,2) DEFAULT '0.00',
  `cl_observaciones` text COLLATE utf8_bin,
  PRIMARY KEY (`cl_id`,`cl_codigo`)
) ENGINE=InnoDB AUTO_INCREMENT=2149 DEFAULT CHARSET=utf8 COLLATE=utf8_bin COMMENT='TABLA PARA LLEVAR EL REGISTRO DE CLIENTES';

[webmasterplc]

Al editarlo me siguen apareciendo dos registros en el grid aunque en la base de datos me aparece solo 1 y solo desaparece al editar otro

[webmasterplc]

aqui les adjunto la imagen