tests: restore nil check in the dispinterface test

git-svn-id: trunk@14748 -

tests/webtbs/tw15530.pp

@@ -22,10 +22,13 @@ begin
 
   II := CreateOleObject('InternetExplorer.Application') as IIE;
 
+  if II = nil then
+    halt(1);
+
   if not II.Visible then // test dispid property getter
     II.Visible := True;  // test dispid property setter
 
   II.Quit; // test dipid method call
 
   OleUninitialize;
-end.
+end.