You can use this event to apply additional formatting to the TAfterGroup = title area

) of object; TAfterGroup = (TForm1.DataToXLS1AfterGroup(Sender: TObject; GroupIndex: Integer; GroupRow: IXLSRange; GroupCell: IXLSRange);: TObject; With: Integer; case:

Font.Size :=. Atitinka a range which contains the whole TAfterGroup = title area

) of object;

TObject. Nurodo the TDataToXLS component that triggered the event GroupIndex case Font.Size :=. Atitinka a range which contains the whole TAfterGroup = title areaFont.Size :=. Atitinka a range which contains the whole TAfterGroup = title area. Atitinka a cell which contains the TAfterGroup = value Font.Size :=. Atitinka a range which contains the whole TAfterGroup = title areaGroupIndex

TForm1.DataToXLS1AfterGroup(Sender: TObject; GroupIndex: Integer; GroupRow: IXLSRange; GroupCell: IXLSRange);	begin
With	case
case	With of
: Font.Size :=	: Font.Size :=

Font.Size :=

end

procedure TForm1.DataToXLS1AfterGroup(Sender: TObject;
      GroupIndex: Integer; GroupRow: IXLSRange; GroupCell: IXLSRange);
begin
  GroupRow.Merge;
  With GroupRow do begin
     case GroupIndex of
        1:   Font.Size := 16;
        2:   Font.Size := 14;
        3:   Font.Size := 12;
        else Font.Size := 10;
     end;
  end;
end;