Função para validar data

{Passar a data como string, neste caso, e depois convertê-lá em date é onde se verificará se a data é válida. O função MSGAviso é uma função minha que já incluí neste site.}

Function ValidaData(sData : String): Boolean;
Begin
Try
sData := DateToStr(StrToDate(sData));
Result := True;
Except
Result := False;
MSGAviso('Data inválida!', 'Erro!');
End;
End;