I have a problem with porting VBA code to Lazarus

Question

Sub ListaDokumentow()
On Error GoTo ErrHandler
    
    Dim oSubGT As InsERT.Subiekt
    Dim oListaDok As InsERT.SuDokumentyLista
    Dim oDok As InsERT.SuDokument
    Dim sNapis As String
        
    Set oSubGT = UruchomSubiekta()
     
 
    Set oListaDok = oSubGT.Dokumenty.Wybierz()
    oListaDok.FiltrTypOpcje = gtaFiltrSuDokumentOpcjeZam
    oListaDok.FiltrTyp = gtaFiltrSuDokumentZam
    oListaDok.FiltrOkres = gtaFiltrOkresNieokreslony
    oListaDok.MultiSelekcja = True
    
    oListaDok.Wyswietl
    
    sNapis = "Zaznaczono nastęujące dokumenty: " & vbCrLf
    
    For Each oDok In oListaDok.ZaznaczoneDokumenty
        sNapis = sNapis & oDok.NumerPelny & "ID:" & oDok.Identyfikator & vbCrLf
        
    Next
    
    MsgBox sNapis
    
    
    Exit Sub
ErrHandler:
    MsgBox "Wystąpił błąd: " & Err.Number & " - " & Err.Description
    
End Sub

I wrote such a code in VBA but I can not transfer it to Lazarus, it is about returning the invoice id and the invoice number

unit sm_testy;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, wps_u, LCLType,Comobj,variants,ActiveX;

type
  TOleCollectionEnumClass = class(TObject);
  TEkSmTesty = class(TForm)
  private

  public

  end;

var
  EkSmTesty: TEkSmTesty;

implementation

{$R *.lfm}


var
aSubGT,oSubGT:OleVariant;
oListGT,gtaFiltrOkresNieokreslony,gtaFiltrSuDokumentOpcjeZam,gtaFiltrSuDokumentZam:OleVariant;
oDok: OleVariant;
Reply, BoxStyle: Integer;

begin

BoxStyle := MB_ICONQUESTION + MB_YESNO;
//Reply := Application.MessageBox(PChar(IntToStr(PROG_VER_NUM_RC)),'Test', BoxStyle);

wpsConnect(oSubGT,true);

oListGT:=oSubGT.Dokumenty.Wybierz;
oListGT.FiltrTypOpcje:=15;
//oListGT.FiltrTyp:=gtaFiltrSuDokumentZam;
oListGT.FiltrOkres:=gtaFiltrOkresNieokreslony;
oListGT.MultiSelekcja:= True;
oListGT.Wyswietl;

end. // eof
                          

I stopped at the display of window of "subiekt" with the list, and I do not know how to enumerate the oleVariant object

Maybe someone would at least lead me on the right path

I can't enumerate the oDok object in Lazarus, which in my opinion should look something like this

oDok: = CreateOleObject ('InsERT.SuDokument');

Answer 1

I use this code in a separate utility unit:

Type
  TEatenType = {$ifdef fpc} {$ifdef ver3_0}pulong{$else}Ulong{$endif}{$else}Integer{$endif}; // type for eaten parameter MkParseDisplayName
  oEnumIterator = record
                      mainobj: OleVariant;
                      oEnum  : IEnumVariant;
                      IterItem : OleVariant;
                      IterVal  : LongWord;
                      function Enumerate(v:olevariant):oEnumIterator;
                      function GetEnumerator :oEnumIterator;
                      function MoveNext:Boolean;
                      property Current:OleVariant read iteritem;
                   end;


Implementation

{ oEnumIterator}

function oEnumIterator.getenumerator :oEnumIterator;
begin
 result:=self;
end;

Function oEnumIterator.Enumerate(v :olevariant):oEnumIterator;
begin
  mainobj:=v;
  oEnum  := IUnknown(mainobj._NewEnum) as IEnumVariant;
  result:=self;
end;

Function  oEnumIterator.MoveNext:boolean;
begin
  result:=(oEnum.Next(1, iteritem, iterval) = s_ok);
end;

and then enumerate using

var  oEnum            : oEnumIterator;
     colItem,
     colItems : Olevariant
 ..
 colitems:=objWMIService.ExecQuery('Select * from Win32_OperatingSystem');
 for colItem in oEnum.Enumerate(colItems) do  
         memo1.lines.add('Version: ',colitem.Version);