如何判断maskedit框中输入的数据是“有效”的日期型数据？

[wzs]

[sunrised]

wzs:提供我的方法供你參考:
先設置一日期變量,實現方法如下:
procedure ....(sender..)
var datevalue:Tdatetime;
begin
try
datevalue:=strtodatetime(maskedit.text);
except
begin
showmessage('輸入日期無效!,請重新輸入某某日期!');
end;
end;
end;

[sunrised]

sorry!應加上返回語句

procedure ....(sender..)
var datevalue:Tdatetime;
begin
try
datevalue:=strtodatetime(maskedit.text);
except
begin
showmessage('輸入日期無效!,請重新輸入某某日期!');
exit;
end;
end;
end;

[ecamel]

不行了，是不是有问题？？
我运行时显示如下下错误：
is not valid date
是什么原因