Una posibilidad puede ser hacer algo así:
Código:
var
ADate: TDateTime;
begin
try
ADate := StrToDate(Edit1.Text);
...
except
On E: EConvertError do
begin
Edit1.Text := '';
raise EConvertError.Create('Formato de Fecha Errónea');
end
else
raise;
end;
...
end;