GetErrMesg(E:ERROR):STRING
Str := GetErrMesg(1/0); PrintLn Str; Division by zero -------------------------------