From fd36dabc099532644e1d772458ea45cc4e597d4a Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sun, 7 Mar 2010 15:38:49 +0000
Subject: [PATCH]  * Changed TCustomWebApplication.CreateForm's reference
 parameter now the compiler enforces the same type on var-parameters

git-svn-id: trunk@14992 -
---
 packages/fcl-web/src/custweb.pp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/fcl-web/src/custweb.pp b/packages/fcl-web/src/custweb.pp
index fdec9949e3..2420141405 100644
--- a/packages/fcl-web/src/custweb.pp
+++ b/packages/fcl-web/src/custweb.pp
@@ -102,7 +102,7 @@ Type
   Public
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
-    Procedure CreateForm(AClass : TComponentClass; Var Reference : TComponent);
+    Procedure CreateForm(AClass : TComponentClass; out Reference);
     Procedure Initialize; override;
     Procedure ShowException(E: Exception);override;
     Procedure DoHandleRequest(ARequest : TRequest; AResponse : TResponse);
@@ -365,9 +365,9 @@ begin
   inherited Destroy;
 end;
 
-procedure TCustomWebApplication.CreateForm(AClass: TComponentClass; var Reference: TComponent);
+procedure TCustomWebApplication.CreateForm(AClass: TComponentClass; out Reference);
 begin
-  Reference:=AClass.Create(Self);
+  TComponent(Reference):=AClass.Create(Self);
 end;
 
 end.