diff --git a/tests/tbf/tb0096.pp b/tests/tbf/tb0096.pp
new file mode 100644
index 0000000000..43b12ae84c
--- /dev/null
+++ b/tests/tbf/tb0096.pp
@@ -0,0 +1,23 @@
+{ derived from source for Bug Report 1203 }
+{ in FPC mode this shouldn't compile      }
+{$mode objfpc}
+type
+     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
+     a=class
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+     b=class(A)
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+begin
+end.
+
+
diff --git a/tests/tbf/tb0097.pp b/tests/tbf/tb0097.pp
new file mode 100644
index 0000000000..32b9d84127
--- /dev/null
+++ b/tests/tbf/tb0097.pp
@@ -0,0 +1,22 @@
+{ derived from Web Bug Report 1203 }
+{$mode Delphi}
+type
+     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
+     a=object
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+     b=object(A)
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+begin
+end.
+
+
diff --git a/tests/tbf/tb0098.pp b/tests/tbf/tb0098.pp
new file mode 100644
index 0000000000..ef13bd3519
--- /dev/null
+++ b/tests/tbf/tb0098.pp
@@ -0,0 +1,22 @@
+{ derived from Web Bug Report 1203 }
+{$mode objfpc}
+type
+     someprocedureofobjectype=procedure (sender:tobject) OF OBJECT;
+     a=object
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+     b=object(A)
+     protected
+        fondisplay : someprocedureofobjectype;
+     public
+        a:longint;
+     end;
+
+begin
+end.
+
+