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