implementation
uses
DateUtils;
[...]
procedure TForm1.Button1Click(Sender: TObject);
var
FFecha, FFechaSeleccionada: TDate;
function MismaFecha(const DateA, DateB: TDate): boolean;
begin
Result := CompareDate(FFecha, FFechaSeleccionada) = 0;
end;
begin
FFecha := EncodeDate(2000, 1, 1); FFechaSeleccionada := Form1.DateTimePicker1FechaDesde.Date;
if not(MismaFecha(FFecha, FFechaSeleccionada)) then
end;