FoxPro/Visual FoxPro - date

hola amigos del foro, soy nuevo en fox, quisiera saber como, validar una caja de texto
que cuando por ejemplo:
txt fecha es 23/05/2007
y mitabla.fecha es 15/04/2007
al momento de darle lostfocus en txtfecha si el campo fecha es menor me arroge un mensaje que diga fecha es menor

porfavor necesito ese codigo urgente.
gracias de antemano a los que me ayuden

Select mitabla
IF this.value < mitabla.fecha
=messagebox('Error Fecha no puede ser menor',0+16,'Aviso')
NODEFAULT
RETURN .F.
ENDIF

Hasta con los ojos cerrados....facil pregunta compañero...y muy buena respuesta.

Buen dia