Examples Delphi

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