Si utilizas un componente para captura de fechas, como un DateTimePicker, éste te ayuda con la validación... pero si estas permitiendo que el usuario digite libremente debes esperar cualquier cosa...
La forma facil que veo es:
Código Delphi
[-] Try
ShortDateFormat:= 'mm/dd/yyyy';
StrToDate(Edit1.Text);
ShowMessage('Fecha OK');
except
ShowMessage('Fecha no valida');
end;
La función StrToDate acepta un segundo parametro TFormatSettings que es un registro que contiene entre otras variables ShortDateFormat... asi que puedes crear localmente un registro de este tipo configurarlo a tu antojo (sin afectar las variables globales) y enviarl como parametro de la función...
bye