--- a/hedgewars/uTypes.pas	Tue Jul 16 11:14:27 2013 +0200
+++ b/hedgewars/uTypes.pas	Tue Aug 27 17:22:07 2013 +0400
@@ -413,10 +413,8 @@
 
      cdeclPtr = procedure; cdecl;
      cdeclIntPtr = procedure(num: LongInt); cdecl;
-     functionDoublePtr = function: Double;
 
      TMobileRecord = record
-                     getScreenDPI: functionDoublePtr;
                      PerformRumble: cdeclIntPtr;
                      GameLoading: cdeclPtr;
                      GameLoaded: cdeclPtr;