[Casimiro Notevi]

Creo recordar que es igual:

Código Delphi [-]
uses
  Vcl.Controls, Vcl.ComCtrls;

procedure RecorrerComponentesEnTabControl(TabControl: TTabControl);
var
  i, j: Integer;
  TabSheet: TTabSheet;
begin
  // Recorrer todas las páginas en el TabControl
  for i := 0 to TabControl.PageCount - 1 do
  begin
    TabSheet := TabControl.Pages[i];
    // Recorrer todos los componentes en la página actual
    for j := 0 to TabSheet.ControlCount - 1 do
    begin
      // Aquí puedes acceder a cada componente usando TabSheet.Controls[j]
      // Por ejemplo, si deseas mostrar el nombre de cada componente:
      ShowMessage('Nombre del componente: ' + TabSheet.Controls[j].Name);
    end;
  end;
end;