From 412eaf705a5797f392cd3dfd62ad40115461de48 Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 28 Sep 2011 19:00:29 +0000
Subject: [PATCH] tappytux: Fixes index out of bounds

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2035 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 applications/tappytux/gameconfigform.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/applications/tappytux/gameconfigform.pas b/applications/tappytux/gameconfigform.pas
index 8e9de6e8c..15cc980a8 100644
--- 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;