Delphi - Validar Fecha

Ingreso una fecha en una caja de texto, ahora quiero saber si esa fecha es válida...
Hay alguna función para eso?? digamos algo asi como...

if tedit1.text isDate then
...
else
...
end;

no se si es la manera adecuada pero esa es la idea, validar la fecha.

Gracias

Si se deben ingresar solo fechas en ese lugar, utiliza el componente wwDBDateTimePicker que esta en el menu IPControls.

Hay muchas formas pero una sencilla es intentar pasar el string a date y si se produce un error la fecha no es valida.
try
strtodate(Edit1.text);
except
on exception do
showmessage('Fecha no correcta');
end;//Try
Suerte

Si utilizas esa técnica, es mejor hacerlo con rigor:

function IsDate(pFecha: string): boolean;
begin

result := True; //Suponemos que es una fecha válida

try
StrToDate(psFecha);
except

on e: EConvertError do begin
result := False; //No es una fecha válida
end;//EConvertError

on e: Exception do begin
//En el improbable caso de que se produjese otra excepción...
raise; //... la relanzamos
end;//Exception

end;//try... except

end;//IsDate

Un saludo.

La mejor manera de tratar un error es evitar que pase. Si los datos son ingresados por un usuario, y solo debe ingresar fecha, usar un control de fecha o un maskedit. Si es numero, que la mascara permita solo numeros, etc...

Es innecesario validar una entrada que en primer lugar es posible forzar a que solo permita fecha usando una mascara o un datepicker