[Lazarus-es] Validar Fechas

[Ismael L. Donis Garcia]

Estoy tratando de hacer por ejemplo:

sfecha := '20140129';
sfecha := LeftStr(sfecha, 4) + DateSeparator + AnsiMidStr(sfecha,5,2) + DateSeparator + RightStr(sfecha, 2);
if (TryStrToDate(sfecha, dtmfecha)) then

Y siempre la función TryStrToDate me devuelve falso.

De que forma podría validar esto que me devolviera si la fecha es correcta o no?

Desde ya Gracias
========
| ISMAEL |
========
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20140129/ea37b492/attachment-0002.html>