typo fix

[lcore.git] / unitwindowobject.pas

diff --git a/unitwindowobject.pas b/unitwindowobject.pas
index 706c6a370bb3ec9fce471920d95d50b6308853eb..48c356bc28a477847bbbf1f78bb0369f54671aab 100644 (file)
--- a/unitwindowobject.pas
+++ b/unitwindowobject.pas
@@ -165,7 +165,7 @@ var
   MsgRec : TMsg;\r
 begin\r
   while GetMessage(MsgRec, hwnd(0), 0, 0) do begin\r
-    {$ifdef mswindowss}\r
+    {$ifdef mswindows}\r
     TranslateMessage(MsgRec);\r
     {$endif}\r
     DispatchMessage(MsgRec);\r