diff --git a/README.md b/README.md
index 5b32f643..6c357c1c 100755
--- a/README.md
+++ b/README.md
@@ -370,6 +370,7 @@ Meet [FizzBuzz](https://github.com/zenware/FizzBuzz), the evolution of [hello-wo
 * [Obix](o%5Cobix.osc)
 * [Obj](o%5Cobj.st)
 * [Objc](o%5Cobjc.m)
+* [Object Pascal](o%5Cobject-pascal.pp)
 * [Objective J](o%5Cobjective-j.j)
 * [Objectstar](o%5CObjectStar)
 * [Ocaml](o%5Cocaml.ml)
diff --git a/o/object-pascal.pp b/o/object-pascal.pp
new file mode 100644
index 00000000..3ba438b7
--- /dev/null
+++ b/o/object-pascal.pp
@@ -0,0 +1,20 @@
+program ObjectPascalExample;
+
+type
+   THelloWorld = class
+      procedure Put;
+   end;
+
+procedure THelloWorld.Put;
+begin
+   Writeln('Hello World');
+end;
+
+var
+   HelloWorld: THelloWorld;
+
+begin
+   HelloWorld := THelloWorld.Create;
+   HelloWorld.Put;
+   HelloWorld.Free;
+end.
\ No newline at end of file