Criticando / Validando Datas

Uma obrigação que todo programador deve ter é a validação de alguns campos na tela.
Vamos agora validar um campo DATA.

Evento Change (só para acrescentar as barras que separam o dia do mês e o mês do ano.

var vdata:string;
begin
if length(edit5.Text) = 8 then
begin
vdata:=edit5.Text;
insert('/',vdata,3);
insert('/',vdata,6);
edit5.Text:=vdata;
end;

end;

Lógica:
Você digitará apenas os números da data e o código formatará para você, acrescentando as barras.

Evento OnExit (Agora vamos validar a data)

begin
try
StrToDate(Edit5.Text);
except
on EConvertError do
begin
ShowMessage ('Data Inválida!');
edit5.Clear;
edit5.SetFocus;
end;
end;
end;

Obs: Isso só roda no executável fora do delphi (compile e rode). Para isto, basta dar o F9, sair do programa, ir na pasta onde o projeto está salvo e rodar o aplicativo.

Abraços
Titio Trevas