diff --git a/rtl/inc/crth.inc b/rtl/inc/crth.inc
index ac6dceb49e..da984b2a50 100644
--- a/rtl/inc/crth.inc
+++ b/rtl/inc/crth.inc
@@ -77,7 +77,7 @@ var
 procedure AssignCrt(var F: Text);
 function KeyPressed: Boolean;
 function ReadKey: Char;
-procedure TextMode(Mode: Integer);
+procedure TextMode (Mode: word);
 procedure Window(X1,Y1,X2,Y2: Byte);
 procedure GotoXY(X,Y: Byte);
 function WhereX: Byte;
@@ -102,7 +102,10 @@ procedure cursorbig;
 
 {
   $Log$
-  Revision 1.4  2005-02-14 17:13:22  peter
+  Revision 1.5  2005-05-15 12:44:14  hajny
+    * TextMode parameter type changed to word for TP/BP compatibility
+
+  Revision 1.4  2005/02/14 17:13:22  peter
     * truncate log
 
 }