type MyException = class(Exception) end;