Código:
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;