diff --git a/mdl/mdltest9.pas b/mdl/mdltest9.pas
new file mode 100644
index 0000000..71fef5f
--- /dev/null
+++ b/mdl/mdltest9.pas
@@ -0,0 +1,16 @@
+Program MDLTEST9;
+
+Uses
+  m_SDLCRT;
+
+Var
+  Console : TSDLConsole;
+
+Begin
+  Console := TSDLConsole.Create(Mode_80x25);
+
+  Repeat
+  Until Console.KeyPressed;
+
+  Console.Free;
+End.