From ce21c2977520f94cedde13a2afbdef4b83397abe Mon Sep 17 00:00:00 2001
From: "wanderlan.anjos" <wanderlan.anjos@0bf252ff-4e48-0410-9925-dbe306d98b98>
Date: Thu, 26 Feb 2009 11:45:25 +0000
Subject: [PATCH] Fixed IfThen parameter

---
 ExtToPascal.dpr | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ExtToPascal.dpr b/ExtToPascal.dpr
index 9e25742..62f4594 100644
--- a/ExtToPascal.dpr
+++ b/ExtToPascal.dpr
@@ -986,7 +986,7 @@ procedure WriteUnits;
     for I := 0 to Event.Params.Count - 1 do
       with TParam(Event.Params.Objects[I]) do
         if not AnsiEndsText('Singleton', Name) then begin
-          write(Pas, IfThen(not First, ','), '''', Name, '''');
+          write(Pas, IfThen(not First, ',', ''), '''', Name, '''');
           First := false;
           // Simple types
           if CaseOf(Typ, ['integer', 'string', 'boolean', 'double', 'TDateTime']) <> -1 then