Delphi-Help

var

  c: shortint;

  s: string;

begin

  s := 'A';

  with DBNavigator1 do

    for c := 0 to ControlCount - 1 do

      if Controls[c] is TNavButton then

        with TNavButton(Controls[c]) do

        begin

          ListBox1.Items.Add(Name);

          Glyph := nil;

          Caption := s;

          Inc(s[1]);

        end;

end;