Error en tiempo de ejecuccion

[delphi.com.ar]

Una posibilidad puede ser hacer algo así:

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;