delphi中怎么做到for each x in objs

Question

vb中用得很爽啊:
如For Each f In i.Selection
Delphi中没有对应的简洁写法吗?

Answer 1

var
    fLabel : TLabel;
    i    : Integer;
begin
    for i := 0 to Form1.ControlCount -1 do
    begin
        if Form1.Controls[i] is TLabel then
        begin
            fLabel := TLabel(form1.Controls[i]);
            showmessage(fLabel.Caption);
        end;
    end;
end;