Delphi - ¿dónde está el error?

Al pulsar el botón como veis en el siguiente código, si date 1 es inferior a date2 quiero que aparezca el mensaje indicado, pero no sale así. ¿Dónde tengo el error? Me gustaría que además diera la opción de corregir la fecha. ¿Es posible?

procedure TForm1.BCalcularClick(Sender: TObject);
begin
If date1 < date2 then showmessage('Operación no válida: La fecha de ..... no puede ser anterior a la fecha actual');
date1:= strtodate(efecha0.text);
date2:= strtodate(fechahoy.text);
dias:= daysbetween(date1, date2);
edit2.text:= inttostr(dias);

end;

Es que vuelves a pedirle que te compare fechas antes de que le digas que fechas son. Las variables deben ser inicializadas porque si no pueden contener cualquier cosa y a menudo te darán un error.

date1:= strtodate(efecha0.text);
date2:= strtodate(fechahoy.text);
If date1 < date2 then
showmessage('Operación no válida: La fecha de ..... no puede ser anterior a la fecha actual');
end
else begin
dias:= daysbetween(date1, date2);
edit2.text:= inttostr(dias);
end;

Saludos.