tappytux: Fixes index out of bounds

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2035 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-09-28 19:00:29 +00:00 · 2011-09-28 19:00:29 +00:00 · 412eaf705a
commit 412eaf705a
parent fbc473d5b1
1 changed files with 1 additions and 1 deletions
--- a/applications/tappytux/gameconfigform.pas
+++ b/applications/tappytux/gameconfigform.pas
@ -114,7 +114,7 @@ begin
  TranslateUI();

  // Initialize modules
-  for i := 0 to GetModuleCount() do
+  for i := 0 to GetModuleCount() -1 do
    GetModule(i).InitModule();
 end;