--- a/hedgewars/uTypes.pas	Tue Dec 25 04:45:22 2012 +0100
+++ b/hedgewars/uTypes.pas	Tue Dec 25 05:15:49 2012 +0100
@@ -404,10 +404,10 @@
 
      cdeclPtr = procedure; cdecl;
      cdeclIntPtr = procedure(num: LongInt); cdecl;
-     functionDoublePtr = function: Double;
+     funcDoublePtr = function: Double;
 
      TMobileRecord = record
-                     getScreenDPI: functionDoublePtr;
+                     getScreenDPI: funcDoublePtr;
                      PerformRumble: cdeclIntPtr;
                      GameLoading: cdeclPtr;
                      GameLoaded: cdeclPtr;