From 669861eec44c8c038b807fa5a54c5d991ffbe0bf Mon Sep 17 00:00:00 2001
From: Sergey Pechenko <tnt4brain1@gmail.com>
Date: Sat, 26 Aug 2017 17:21:00 +0600
Subject: [PATCH] Fixed bug with FPC 3.0.0 compilation error

---
 Templates/TemplateConsoleAppFPC.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Templates/TemplateConsoleAppFPC.pas b/Templates/TemplateConsoleAppFPC.pas
index c46df52..082a4b3 100644
--- a/Templates/TemplateConsoleAppFPC.pas
+++ b/Templates/TemplateConsoleAppFPC.pas
@@ -11,6 +11,8 @@
 //     DAMAGES AND LOSS OF PROFITS OR ANY OTHER KIND OF LOSS WHILE USING OR MISUSING THIS CODE.
 //
 //----------------------------------------------------------------------------------------------------
+//     Bug #29 (https://github.com/RRUZ/wmi-delphi-code-creator/issues/29) has been fixed by tnt4brain
+//     via https://github.com/tnt4brain/wmi-delphi-code-creator
 program GetWMI_Info;
 
 {$mode objfpc} {$H+}
@@ -34,15 +36,16 @@ procedure  Get[WMICLASSNAME]Info;
   FSWbemLocator : OLEVariant;
   FWMIService   : OLEVariant;
   FWbemObjectSet: OLEVariant;
-  FWbemObject   : Variant;
+  FWbemObject   : OLEVariant;
   oEnum         : IEnumvariant;
   sValue        : string;   
+  tmpValue      : longword=0;
 begin;
   FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
   FWMIService   := FSWbemLocator.ConnectServer(WbemComputer, '[WMINAMESPACE]', WbemUser, WbemPassword);
   FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM [WMICLASSNAME]','WQL',wbemFlagForwardOnly);
   oEnum         := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
-  while oEnum.Next(1, FWbemObject, nil) = 0 do
+  while oEnum.Next(1, FWbemObject, tmpValue) = 0 do
   begin
 [DELPHICODE]	    
     Writeln('');