problema datepicker

[anubis]

A ver, perdonadme que pregunte sobre el datepicker pero tengo un problema que nose porque pasa.

Código Delphi [-]
begin
fechahoy:=now;
fechentr:=fecharegistro.date;
fechsal:=fechasalida.date;
  if fechentr<=fechahoy then
    begin
      fechentr:=fechahoy;
    end;

  if fechsal<=fechentr+1 then
    fechsal:= fechentr+1;
    label24.Caption:=datetostr(fechentr);
    label30.caption:=datetostr(fechsal);
diasestancia.caption:=inttostr(daysbetween(fechsal,fechentr));
fecharegistro.date:=fechentr;
fechasalida.date:=fechsal;

diasestancia no me hace bien el resultado a pesar de que he puesto los label para ver si efectivamente las fechas son las correctas y si lo son, lo que no entiendo, si he puesto solo las fechas porque no me lo calcula bien.

alguna idea?

gracias