validar data

Faça o seguinte, force uma exceção, assim:

var
Data: TDateTime;
try
Data := <sua data> ;
<data OK>;
except
< Data Inválida>;
end;

Qualquer dúvida. Tô aqui :D

Pode ser assim tb!!

var
Data : TDateTime;
begin
if TryStrToDate(edit1.Text,Data) then
showmessage(´ok´) // A variável data retorna a data convertida
else
showmessage(´Data Inválida´)
end;