紧急求助：在datagrid中添加一列表示当前行数的问题

[beauzu]

在DrawColumnCell下有如下代码：

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Index = 0 then
with DBGrid1.Canvas do begin
FillRect(Rect);
TextOut(Rect.Left+2, Rect.Top+2, IntToStr(DBGrid1.DataSource.DataSet.RecNo));
end;
end;

运行后在第一烈的值却总是固定的值，请教各位大虾，该如何解决呢？

解决了，立即送分！