For each in Delphi

[EWeiss]

Das alte leidige Problem

Ich habe zwei Classen
TClsProgBar..TClsButtonInfo

Mein Anliegen ist zu erfahren wie viele Button sich in goProgBar befinden.
goProgBar: TClsProgBar;

Delphi-Quellcode:

procedure DisplayProgBarButtons();
var
  oButton: TClsButtonInfo;
begin

  for oButton in goProgBar do
    Controls.DisplayButton(oButton);

end;

Das Delphi Interne "for Each" funktioniert auf dieser basis leider nicht.
Meldung die ausgegeben wird.

Zitat:

[DCC Fehler] uMain.pas(147): E2010 Inkompatible Typen: 'TClsButtonInfo' und 'TComponent'

Delphi-Quellcode:

TClsProgBar = class(TComponent)
TClsButtonInfo = class(TComponent)

Mein Code in VB sieht so aus.

Code:

Private Sub DisplayProgBarButtons()
    Dim oButton As clsButtonInfo
    
    For Each oButton In goProgBar
        frmButtons.DisplayButton oButton
    Next
End Sub

"For Each oButton In goProgBar" enumeriert die vorhandenen Button.

Code:

Public Property Get NewEnum() As IUnknown

'this property allows you to enumerate
'this collection with the For..Each syntax

    Set NewEnum = mcolButtons.[_NewEnum]

End Property

Ich weis nun nicht wie ich das in Delphi umsetzen soll.
Hoffe mal das mir hier jemand weiterhelfen kann.

gruss