Update duplica registro

[FerCastro]

Hola al foro,

Tengo una pequeña aplicación la cual estaba trabajando aparentemente bien hasta hace unos dias que comenzó a hacer algo sumamente extraño.

Cuando quiero modificar los datos de un registro al momento de grabar me duplica el registro. No se que haya podido suceder para que esto sucediera, pues anteriormente no lo hacía. Alguna idea? dejo el código que tengo:

Código Delphi [-]

      With Data.qEditaEmpleado do
        Begin
          Close;
          SQL.Clear;
          SQL.Add('SELECT * FROM empleado WHERE IDEmpleado = ' + IntToStr(Data.qEmpleado.FieldByName('IDEmpleado').AsInteger));
          Open;
          Edit;
          FieldValues['IDEmpresa']:=FMain.oVariables.nEmpresa;
          FieldValues['Apaterno']:=cPaterno.Text;
          FieldValues['AMaterno']:=cMaterno.Text;
          FieldValues['Nombre']:=cNombre.Text;
          Post;
          Close;
        End;

Muchas gracias
Fernando Castro
México