[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;