From a143016beb8ec9b0c92ad697ab4575cf6b23bbba Mon Sep 17 00:00:00 2001
From: Merlijn Wajer <merlijn@wizzup.org>
Date: Wed, 3 Aug 2011 20:30:11 +0200
Subject: [PATCH] Lape-wrappers: Fix by nielsie95.

---
 Projects/lape-wrappers/main.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Projects/lape-wrappers/main.pas b/Projects/lape-wrappers/main.pas
index ffcfdea..4764568 100644
--- a/Projects/lape-wrappers/main.pas
+++ b/Projects/lape-wrappers/main.pas
@@ -158,9 +158,9 @@ begin
 
           for iii := 0 to High(c) do
           begin
-            if (iii> 0) then
+            if (iii+ii> 0) then
               s := s+', ';
-            s := s+PtrName(d.ShortText)+'(Params^['+IntToStr(iii)+'])^';
+            s := s+PtrName(d.ShortText)+'(Params^['+IntToStr(iii+ii)+'])^';
           end;
         end;