Odpowiednik pętli foreach w Delphi

Witam.
Mam pytanie, czy jest jakiś sposób na implementacje pętli foreach aby to wyglądało mniej-więcej jak w php, tzn

type TMyType = record 
 name:String;
end;
...
var a:array of TMyType; 
...
foreach (a as b) begin
 DoSomething(b);
 ShowMessage(b.name)
end;

czy jednak jedyną metodą jest tak jak w tym gotowcu Implementacja Foreach (for in do) dla Delphi 7 ?

W nowszych wersjach delphi jest petla for-in

Dzięki, za długo pracowałem na D7 :D