아래와 같이 하면 첨부 파일처럼 나옵니다.. 참고하여 적용해 보시길.....
procedure TForm11.Button1Click(Sender: TObject);
var
    i: Integer;
    CurrDate: TDateTime;
begin
    CurrDate := Date;

    with AdvStringGrid1 do
    begin
        WordWrap := False;
        VAlignment := vtaCenter;
        for i := 0 to ColCount - 1 do
        begin
            Alignments[i, 0] := taCenter;
            Alignments[i, 1] := taCenter;
            Alignments[i, 2] := taCenter;
        end;

        MergeCells(0,0, 1, 3);
        Cells[0, 2] := 'NO';
        MergeCells(1,0, 1, 3);
        Cells[1, 1] := '타이틀1';
        MergeCells(2,0, 1, 3);
        Cells[2, 1] := '타이틀2';


        MergeCells(3,0, 3, 1);
        Cells[3, 0] := '타이틀5';
        MergeCells(3,1, 3, 1);
        Cells[3, 1] := FormatDateTime('M', CurrDate) + '월';
        Cells[3, 2] := 'aaa';
        Cells[4, 2] := 'bbb';
        Cells[5, 2] := 'ccc';

        MergeCells(6,0, 3, 1);
        Cells[6, 0] := 'Current(1~90)';

        Cells[6, 1] := '1~30';
        Cells[6, 2] := '(' + FormatDateTime('M', CurrDate) + '월)';
        Cells[7, 1] := '31~60';
        Cells[7, 2] := '(' + FormatDateTime('M', IncMonth(CurrDate, -1)) + '월)';
        Cells[8, 1] := '61~90';
        Cells[8, 2] := '(' + FormatDateTime('M', IncMonth(CurrDate, -2)) + '월)';

        MergeCells(9, 0, 1, 3);
        Cells[9, 1] := '합계';

        MergeCells(10, 0, 3, 1);
        Cells[10, 0] := '타이틀';

        MergeCells(10, 1, 1, 2);
        Cells[10, 1] := '구분';
        Cells[11, 1] := '그룹';
        Cells[11, 2] := 'A,B,C';
        Cells[12, 1] := '상태';
        Cells[12, 2] := 'A, I';
    end;
end;


>> 1. 개발/실행 플랫폼 
>>   (1) OS : win7
>>   (2) 개발툴 : 2007
>>   (3) 사용 Database :
>> 
>> 2. 개발 중인 프로그램 
>> 
>> 3. 질문 내용 
>> 
>> 
>> 예)
>>  group 1    |    group2
>> col1 | col2 |  col3 | col4
>> 
>> 이렇게 상단을 나눌려고하는데
>> 
>> columnHeaders에서 리스트는 작성하지만 나누는건 어떻게해야할지...
>> 
>> 코딩으로해야하나요? properties에서 셋팅이 가능한지요...?