Update duplica registro

[FerCastro]

Gracias, siguiendo los consejos de Poli y del Ego esto ya quedo arreglado:

Código Delphi [-]
      cCadena := ' UPDATE empleado SET '+
                          ' IDEmpresa = '+ QuotedStr(IntToStr(FMain.oVariables.nEmpresa))+
                          ' , IDSucursal = '+ QuotedStr(IntToStr(FMain.oVariables.nSucursal))+
                          ' , IDDepartamento = '+ QuotedStr(IntToStr(nIDDepartamento))+
                          ' , IDPuesto = '+ QuotedStr(IntToStr(nIDPuesto))+
                          ' , IDRegistro = '+ QuotedStr(cRegistro.Text)+
                          ' , IDNomina = '+ QuotedStr(cNomina.Text)+
                          ' , Apaterno = '+ QuotedStr(cPaterno.Text)+
                          ' , AMaterno = '+ QuotedStr(cMaterno.Text)+
                          ' , Nombre = '+ QuotedStr(cNombre.Text)+
                          ' , NombreCompleto = '+ QuotedStr(TRIM(cPaterno.Text) + ' ' + TRIM(cMaterno.Text)+ ' ' + TRIM(cNombre.Text))+
                          ' , CentroCostos = '+ QuotedStr(cCostos.Text)+
                          ' , Sucursales = '+ QuotedStr(FDatosEmpleado.cSucursalesEvento)+
                          ' , FNacimiento = '+ QuotedStr(DatetoStr(dCumple.Date))+
                          ' , FIngreso = '+ QuotedStr(DatetoStr(dCumple.Date))+
                          ' , Telefono = '+ QuotedStr(cTelefono.Text)+
                          ' , Correoe = '+ QuotedStr(cCorreo.Text)+
                          ' , Dir1 = '+ QuotedStr(cDir1.Text)+
                          ' , Dir2 = '+ QuotedStr(cDir2.Text)+
                          ' , Dir3 = '+ QuotedStr(cDir3.Text)+
                          ' , CURP = '+ QuotedStr(cCURP.Text)+
                          ' , Ciudad = '+ QuotedStr(cCiudad.Text)+
                          ' , Estado = '+ QuotedStr(cEstado.Text)+
                          ' , CP = '+ QuotedStr(cCP.Text)+
                          ' , Activo = '+ QuotedStr(IntToStr(1))+
                          ' , Usuario = '+ QuotedStr('FCastro')+
                          ' , U_Fecha = '+ QuotedStr(DateToStr(now))+

                          ' WHERE IDEmpleado = '+ QuotedStr(IntToStr(Data.qEmpleado.FieldByName('IDEmpleado').AsInteger));

      With Data.qEditaEmpleado do
        Begin
          SQL.Text := cCadena;
          ExecSQL;
        end;

Ahora, porque lo metí a una cadena de texto? la verdad es que si no lo dejaba así el query no se ejecutaba, enigmas de la vida no?

Mil gracias a todos en el foro por la ayuda. "Agradezco a san poli por los favores y las ayudas recibidas"

Saludos!