diff --git a/tests/webtbf/tw3395a.pp b/tests/webtbf/tw3395a.pp
new file mode 100644
index 0000000000..55b8b940ac
--- /dev/null
+++ b/tests/webtbf/tw3395a.pp
@@ -0,0 +1,29 @@
+{ %fail }
+
+{$mode delphi}
+
+type
+   texec1 = class
+     protected
+       procedure execute;
+     public
+       constructor create;
+   end;
+
+   procedure t(p: pointer);
+     begin
+     end;
+
+   constructor texec1.Create;
+     begin
+       // This should give an invalid typecast, because a methodpointer are 2 pointers
+       t(pointer(execute));
+     end;
+
+   procedure texec1.execute;
+     begin
+     end;
+
+begin
+end.
+
diff --git a/tests/webtbs/tw3395.pp b/tests/webtbs/tw3395.pp
deleted file mode 100644
index 4641b9d0dc..0000000000
--- a/tests/webtbs/tw3395.pp
+++ /dev/null
@@ -1,29 +0,0 @@
-program bug3395;
-
-{$MODE DELPHI}
-{$THREADING ON}
-
-type
-  texec1 = class
-    protected
-      procedure execute;
-    public
-      constructor create;
-  end;
-
-  procedure t(p: pointer);
-    begin
-    end;
-
-  constructor texec1.Create;
-    begin
-      t(@execute);
-    end;
-  
-  procedure texec1.execute;
-    begin
-    end;
-  
-begin
-end.
-