Delphi-Quellcode:
i := 0;
gefunden := false;
while not gefunden and i < TabControl1.Tabs.Count -1 do
if TabControl1.Tabs[i].Text = DataModule1.ABStblName.FiledByName('Anzeige').value then gefunden := True;
If gefunden then TabControl1.TabIndex := i;
Getippt und nicht getestet.