TRAPPING DELPHI EXCEPTIONSvar InValid : Boolean;begin InValid := False; try date := StrToDate(dateString); except on EConvertError do InValid := True; end; if Invalid then Showmessage('Invalid date...');