--- a/hedgewars/hwengine.pas	Wed May 25 14:21:40 2011 +0200
+++ b/hedgewars/hwengine.pas	Fri May 27 23:18:23 2011 +0400
@@ -141,8 +141,11 @@
 
 ///////////////////
 procedure MainLoop;
+{$WARNINGS OFF}
+// disable "Some fields weren't initialized" warning
+const event: TSDL_Event = ();
+{$WARNINGS ON}
 var PrevTime, CurrTime: Longword;
-    event: TSDL_Event;
 begin
     PrevTime:= SDL_GetTicks;
     while isTerminated = false do