[san-46]

Да, признаю, перестраиваться не будет (в коде TabSet1Change - ничего похожего для этого нет).

Испытал такой код:

Код:

  for i:=0 to 31 do begin //работа с русскими именами (не было базы с англ.)
    C := Chr(Byte('А')+i);      //"С" - Char; "А" - русская
    IBQuery1.SQL.Text := 
      'select * from anketa3 where LastName starting with '''+C+'''';
    IBQuery1.Open;
    if not IBQuery1.Eof then
      TabSet1.Tabs.Add(C);
    IBQuery1.Close;
  end;

Работает.
Определяется есть ли имена на каждую букву алфавита. Если есть, то закладка добавляется.
Т.к. букв не много, то выполняется быстро, несмотря на многочисленные операции открытия и закрытия DataSet.