Creo recordar que es igual:
Código Delphi
[-]uses
Vcl.Controls, Vcl.ComCtrls;
procedure RecorrerComponentesEnTabControl(TabControl: TTabControl);
var
i, j: Integer;
TabSheet: TTabSheet;
begin
for i := 0 to TabControl.PageCount - 1 do
begin
TabSheet := TabControl.Pages[i];
for j := 0 to TabSheet.ControlCount - 1 do
begin
ShowMessage('Nombre del componente: ' + TabSheet.Controls[j].Name);
end;
end;
end;