From 61b34e74a92f541e41a91b51fd62f303e0bbe2c2 Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Tue, 25 Mar 2014 18:17:08 +0000
Subject: [PATCH] LazActiveX: turn some "var" parameters into normal
 parameters.

git-svn-id: trunk@44520 -
---
 components/activex/importtypelib.pas | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/components/activex/importtypelib.pas b/components/activex/importtypelib.pas
index 6625aff2e7..59e9fe3e19 100644
--- a/components/activex/importtypelib.pas
+++ b/components/activex/importtypelib.pas
@@ -71,7 +71,6 @@ implementation
 uses typelib;
 
 procedure ImpTypeLib(Sender: TObject);
-
 var
   TLI: TTypeLibImporter;
   bPackage, bActiveX, bRecurse: boolean;
@@ -178,7 +177,7 @@ begin
   end;
 end;
 
-function ReadDefaultVal(path: string; var reg: TRegistry): string;
+function ReadDefaultVal(path: string; reg: TRegistry): string;
 begin
   if reg.OpenKeyReadOnly(path) then
   begin
@@ -187,7 +186,7 @@ begin
   end;
 end;
 
-function EnumKeys(path: string; var reg: TRegistry; var lst: TStringList): boolean;
+function EnumKeys(path: string; reg: TRegistry; lst: TStringList): boolean;
 begin
   Result := False;
   if reg.OpenKeyReadOnly(path) then