Las horribles fechas, control de fechas

[Huer]

Hola amigos.

antes de enviar esta consulta, me di la tarea de buscar en los foros pero no encontre mi solución es por ello que los molesto su atencion, mi priblema es el siguiente.

trabajo con Delphi 6.0, SQL 2000 CON ADO

todo iba bien durante tres meses el sistema funciono bien, pero me solicitaron controlar la fecha de ingreso ya que la persona que digita las fichas se equivocaba generalmente y digitaba una fecha distinta a la normal. asi que tengo que controlar la fecha durante un rango predeterminado, así que cree una tabla con dos fechas que ingresa el usuario supongamos que el periodo de ingreso es de octubre los parametros deben ser solo del mes y rechazar las fechas que no corresponden

el componente es un TdateEdit, DateEdit1 y quiero controlar el evento onkeydown para que si digito una fecha distinta me advierta.

Código Delphi [-]
 If Key = Vk_return then
   if formatDateTime('ddmmyyy',dtm.ADOTControl_fechas.FieldbyName('FECHA1').Value)
     >= FormatDateTime('dd-mm-yyyy',DEfecha.Date) then
   begin
     ShowMessage('Las fechas son iguales');
   end
   else
   begin
     ShowMessage('Las fechas no son iguales');
   end;
   {...}

busque en el foro esta sentencia, pero solo me controla un rango y no dos.

en espera de una respuesta les doy las gracias de antemano y además gracias por todas las respuestas anteriores...