RowHeader в DBGrid (Delphi 7)

[sakenalimkulov]

Здравствуйте!
Хотел сделать Header на каждую строку DBGrid. Но не знаю как сделать. Может кто-то сталкивался этим.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
var RowHeader:TRect;
    s:string;
begin
  RowHeader:=Classes.Rect(0,Rect.Top,10,Rect.Bottom);
  DBGrid1.Canvas.Brush.Color:=clGradientInactiveCaption;
  DBGrid1.Canvas.FillRect(RowHeader);
   if column.Index=1 then
     inc(i);
  DBGrid1.Canvas.TextRect(RowHeader,RowHeader.Left+2,RowHeader.Top+2,IntToStr(i));
end;

Это код не дает результат, который я хотел.
Как решит эту задачу.

[Прик]

А что в этих хидерах предполагается отображать?