1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

  for a:=0 to Form1.listbox1.items.count-1 do
   begin
     if AnsiLowerCase(copy(Form1.ListBox1.Items[a],1,1))<> AnsiLowerCase(Startchar) then
      begin
        if a<>0 then
        begin
         Wordapplication1.Selection.TypeParagraph;
         Wordapplication1.Selection.TypeParagraph;
        end;

        Startchar := AnsiUpperCase(copy(Form1.ListBox1.Items[a],1,1));
        Wordapplication1.Selection.Tables.Add(wordapplication1.Selection.Range,1,1,emptyparam,emptyparam);
        Wordapplication1.Selection.shading.BackgroundPatternColor:=wdColorGray25;

        Wordapplication1.Selection.Font.Size:=16;
        Wordapplication1.Selection.Font.Bold:=1;
        Wordapplication1.Selection.TypeText(Startchar);

        Wordapplication1.Selection.MoveDown(emptyparam,emptyparam,emptyparam);
        Wordapplication1.Selection.TypeParagraph;
        Wordapplication1.Selection.TypeText(Form1.ListBox1.Items[a]+#13#10);
      end
      else
      begin
        Wordapplication1.Selection.TypeText(Form1.ListBox1.Items[a]+#13#10);
      end
   end;