Testa se uma data é valida em delphi

//-------------------------------------------------- Testa se uma data é valida
function DataValida(StrD: string): Boolean;
begin
Result := true;
try
StrToDate(StrD);
except
on EConvertError do Result:=False;
end;
end;