dbgrid控件如何能在左边显示行号？

procedure TMSWageEdit.aqyMSWageEditCalcFields(DataSet: TDataSet);
begin
  inherited;
  with DataSet do
  if RecNo =-1 then
    FieldByName('计算字段').AsInteger := 1
  else
    FieldByName('计算字段').AsInteger := RecNo;
end;