[Lazarus-es] comparacion de fechas

[Paola Bruccoleri]

Hola todos..

me está d evolviendo mal una comparación cuando se que las fechas son 
iguales...

en un form pido mes y año

var
   dFecha, dFechaContrato, dFechaAux: TDate;
   dFechaReaj, dFechaReaj2, dFechaReaj3: TDate;

begin
.....
    dFecha:= EncodeDate(StrToInt(edtAnio.Text), StrToInt(cboMes.Text), 
1); // 1er dia del mes

     (el campo finicio es tipo date, Firebird y uso componentes Zeos)
     dFechaContrato:= qryContratos.FieldByName('finicio').AsDateTime;
     if DayOf(dFechaContrato) = 1 then
       dFechaAux:= dFechaContrato
     else
       dFechaAux:= EndOfTheMonth(dFechaContrato) + 1;

     nMeses:= MonthsBetween(dFecha, dFechaAux) + 1;  (sumo 1 porque sino 
entre 01/02/12 y 01/02/13 da 11 meses)

     if nMeses >= 12 then begin
       nAnios:= Trunc(nMeses/12);
       dFechaReaj:= IncYear(dFechaAux, nAnios);

        showmessage(datetostr(dfecha));
        showmessage(datetostr(dfechareaj));

       if dFecha = dFechaReaj then begin
             ......... // POR ACA NO PASA Y LAS FECHAS LAS MUESTRA IGUAL


alguna idea???

muchas gracias