[[seoane]]

Usa algo como esto:

Código Delphi [-]
function isDate(Date: string): boolean;
var
  D: TdateTime;
begin
  Result:= TryStrToDate(Date,D);
end;