[Delphi01]

var
  totalTabs: Integer;
begin
  totalTabs := TabControl1.TabCount;
  
  // Iterar a través de cada pestaña y realizar alguna acción
  for i := 0 to totalTabs - 1 do
  begin
    // Acceder a la pestaña en el índice i
    pestaña := TabControl1.Tabs[i];
    
    // Realizar alguna acción con la pestaña
    // Por ejemplo, puedes mostrar el título de cada pestaña
    ShowMessage('Pestaña ' + IntToStr(i + 1) + ': ' + pestaña.Caption);
  end;
end;