begin var p: procedure := ()->begin end; try except on Exception do end; end.