EnumerateControls

list: TList; FF11 RMT
i: Integer;
begin
CheckArgumentNotNull(parentControl, 'parentControl');
list := TList.Create;
try
parentControl.GetTabOrderList(list);
for i := 0 to list.Count - 1 do
begin
proc(TWinControl(list[i]));
end;
finally
list.Free;
end;
end;