* adapted to new fpc behaviour

git-svn-id: trunk@5872 -

tests/webtbs/tw2177.pp

@@ -57,7 +57,7 @@ begin
     i:= ii(wii);
     i.Show;
   except       //excepts
-    on EAccessViolation do WriteLn('Access Violation');
+    on EInvalidCast do WriteLn('Invalid Cast');
   else
     WriteLn('Problem');
     halt(1);