From 6232bcc33ed0694fd30f852296e10a08ecb2328e Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Thu, 22 Jun 2006 23:02:34 +0000
Subject: [PATCH] fixed typo

git-svn-id: trunk@9483 -
---
 components/codetools/eventcodetool.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/codetools/eventcodetool.pas b/components/codetools/eventcodetool.pas
index 51b6fa1d03..91b6da0fb4 100644
--- a/components/codetools/eventcodetool.pas
+++ b/components/codetools/eventcodetool.pas
@@ -202,7 +202,7 @@ begin
     SetLength(ResultType,Len);
     Move(TypeData^.ParamList[Offset],ResultType[1],Len);
     inc(Offset,Len);
-    if Result<>'' then
+    if ResultType<>'' then
       Result:=Result+':'+ResultType;
   end;
   if phpInUpperCase in Attr then Result:=UpperCaseStr(Result);