Bien, ahora si entendi cual es tu problema
La funcion CompareDate recibe dos parametros: FechaA y FechaB, y devuelve un entero que puede ser:
0 --> Quiere decir que FechaA = FechaB
1 --> Quiere decir que FechaA > FechaB
-1 --> Quiere decir que FechaA < FechaB
Aca mas info (en ingles)
Osea que en tu caso el if deberia ser
Código Delphi
[-]
if CompareDate(EncodeDate(2000, 1, 1), Form1.DateTimePicker2FechasHasta.Date) <> 0 then
ShowMessage('Las fechas son distintas')
else
ShowMessage('Las fechas son iguales')