From c8ea997a2b8a55c77e6e52dbeb3fb263a004e78d Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 3 Jul 2008 16:42:26 +0000
Subject: [PATCH] Wrapped parameter generation fix

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@505 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/ws_helper/generator.pas | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/wst/trunk/ws_helper/generator.pas b/wst/trunk/ws_helper/generator.pas
index 0b0b18641..da21b43ab 100644
--- a/wst/trunk/ws_helper/generator.pas
+++ b/wst/trunk/ws_helper/generator.pas
@@ -695,11 +695,17 @@ Var
         if elt.InheritsFrom(TPasUnresolvedTypeRef) then begin
           Indent(); WriteLn('if ( PTypeInfo(TypeInfo(%s))^.Kind = tkClass ) then',[elt.Name]);
             IncIndent();
-              Indent(); WriteLn('TObject(%s.%s) := nil;',[sOUTPUT_PARAM,origineResProp.Name]);
+              Indent(); WriteLn('if ( %s <> nil ) then',[sOUTPUT_PARAM]);
+              IncIndent();
+                Indent(); WriteLn('TObject(%s.%s) := nil;',[sOUTPUT_PARAM,origineResProp.Name]);
+              DecIndent();
             DecIndent();
         end else begin
           if SymbolTable.IsOfType(TPasType(elt),TPasClassType) then begin
-            Indent(); WriteLn('%s.%s := nil;',[sOUTPUT_PARAM,origineResProp.Name]);
+            Indent(); WriteLn('if ( %s <> nil ) then',[sOUTPUT_PARAM]);
+            IncIndent();
+              Indent(); WriteLn('%s.%s := nil;',[sOUTPUT_PARAM,origineResProp.Name]);
+            DecIndent();
           end;
         end;
       end;