diff -r 75db7bb8dce8 -r c18ba8726f5a hedgewars/uGame.pas
--- 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