Controlar fecha menor en DateTimePicker

[*Caro*]

Hola a todos

Quisiera hacer un control en mis DateTimePicker, en el primero se introduce la fecha inicial y en el segundo la fecha final. La fecha final no debe ser nunca menor que la fecha inicial, eso es lo que quiero controlar. Que cuando este cambiando la fecha final y resulte ser menor que la fecha inical me saque un mensaje indicando que no puede cambiar la fecha y la fecha que tenia se mantenga sin cambiar a la nueva fecha, podrian darme una idea de como hacer esto lo intentado pero no he conseguida.

Código Delphi [-]
procedure TForm1.DateTimePicker2Change(Sender: TObject);
begin
     IF DateTimePicker2.DateTHEN
     begin
        showmessage('La Fecha Final debe ser mayor que la Fecha Inicial');
     end;
end;

He intentado primeramente sacar un mensaje, pero con el codigo que he puesto arriba se cicla mi programa. Las pruebas que hice, cuando marco una fecha menor en el mismo mes, me muestra 2 veces el mensaje, pero si le cambio a un mes menor se cicla, no desaparece el mensaje y se nota que empieza a recorrer por todos los meses . Me podrian decir que es lo que pasa por favor, y como hago para no permitirle cambiar la fecha si es menor

Muchisimas gracias por adelantado