EDO_DEV/Test code

class procedure TedoInfo.Error( const aMsg: String = '' );
begin
  if ( aMsg = '' ) then
    raise EedoInfoException.Create( SParsingError )
  else
    raise EedoInfoException.Create( aMsg );
end;