Многоуровневая шапка в TStringGrid

Существует компоненты, которые сие поддерживают, поищи в инете, но можно обойтись и без них.
Просто нужно обрабатывать событие OnDrawCell и играть с StringGrid1->Canvas->TextRect.
Вот пример:
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &r, TGridDrawState State)
{
AnsiString f_str="Строка №1", s_str="Строка №2";
if(ARow==0 && ACol==0)
{
r.Bottom=Canvas->TextHeight(f_str);
StringGrid1->Canvas->TextRect(r,r.Left ,r.Top, f_str);
r.Top=Canvas->TextHeight(f_str)+1;
r.Bottom=Canvas->TextHeight(f_str)*2+1;
StringGrid1->Canvas->TextRect(r,r.Left ,r.Top, s_str);
}
}