Lo que dijo roman es excelente, yo ademas le agregaria lo siguiente :
Código Delphi
[-]
function IsValidDate(S:String): Boolean;
var Date: TDate;
ShortDateFormatOriginal: String;
begin
Result := true;
try
ShortDateFormatOriginal := ShortDateFormat;
ShortDateFormat := 'mm/dd/yyyy'
try
Date := StrToDate(S);
except
on EConvertErrordo
Result := false;
end;
finally
ShortDateFormat := ShortDateFormatOriginal;
end;
end;
Perdon pero no se formatear el texto como hizo roman para que aparezca como codigo Delphi, si alguien me puede dar una mano ...