--- a/hedgewars/uGame.pas	Sun Jan 27 00:28:57 2013 +0100
+++ b/hedgewars/uGame.pas	Tue Feb 19 22:45:02 2013 +0400
@@ -96,9 +96,10 @@
                         AddVisualGear(0, 0, vgtTeamHealthSorter);
                         AddVisualGear(0, 0, vgtSmoothWindBar);
                         {$IFDEF IPHONEOS}InitIPC;{$ENDIF}
-                        with mobileRecord do
+                        {$IFNDEF PAS2C}with mobileRecord do
                             if SaveLoadingEnded <> nil then
                                 SaveLoadingEnded();
+                        {$ENDIF}
                         end;
                 end
         else ProcessGears