Intentando con Try ....

[Alfredo]

Hola a todos...

Estoy intentando validar una entrada de fecha en un MaskEdit con el siguiente codigo:

********
procedure TfrmSolicitud.edFnacExit(Sender: TObject);
var
Hoy : TDateTime;
Year, Month, Day: Word;

begin

try
begin
Hoy := strtodate(edFnac.text); // cargo Hoy con la cadena del MaskEdit

DecodeDate(Hoy, Year, Month, Day); // intento la decodificación
Editboxsiguiente.setfocus; // si la fecha es correcta y no ocurre error pasa siguiente control.

end;

except
// Si ocurre un error :
begin
Application.MessageBox('Fecha erronea....', 'Advertencia',Mb_Ok+Mb_IconStop); // mensaje de error al usuario

edFnac.setfocus; // escribir nuevamente la fecha

end;
end;

****************
El caso es que cuando se introduce un fecha correcta, pasa al control siguiente sin problemas, pero al introducir una fecha erronea, primero me muestra una exepción y luego mi mensaje de fecha erronea. Obiamente quiero que salga mi mensaje para que el usuario corrija y no vea esa exepción.

Que creen que este pasando?

Saludos y gracias....