COM - For-Each in Delphi, aber wie?

[DelphiPeter]

Hallo zusammen!

Habe da mal eine Frage, und zwar habe ich hier eine VB Quelle...

Delphi-Quellcode:

.
Dim oRecipients As DvApi32.Addresses 
Dim oRecipient As DvApi32.Address 
.
.
.
 If Not oItem.Recipients.Count = 0 Then 
    Set oRecipients = oItem.Recipients 
    For Each oRecipient In oRecipients 
      strTo = strTo & "To: " & oRecipient.EMail & ";" & CrLf 
    Next 
  End If 
.
.
.

Soweit konnte ich das übersetzen...

Delphi-Quellcode:

var
  oRecipients: Addresses;
  oRecipient: Address;
begin
  {...}
  if oMailItem.Recipients.Count > 0 then begin
     oRecipients := oMailItem.Recipients;
     // Ab hier hänge ich
     for oRecipient in oRecipients do
     begin
         // irgendwas tun
         Next;
     end;    
  end;
  {...}

Leider funktioniert das ganze aber nicht. For-Each gibt es ja in Delphi nicht.

Bekomme immer diese Meldung

Zitat:

[DCC Fehler] MyUnit.pas(487): E2431 for-in-Anweisung arbeitet nicht mit Kollektionstyp 'Addresses', weil 'Addresses' kein Element für 'GetEnumerator' enthält oder darauf nicht zugegirffen werden kann
[DCC Fehler] MyUnit.pas(490): E2003 Undefinierter Bezeichner: 'Next'

Kann mir da mal jemand helfen?
Das wäre wirklich super von euch!


Danke,

Peter