是delphi的BUG吗？我用的是DELPHI6.0

Question

小弟在练习写程序时，用到了datamodule模块，把各种数据敏感控件放上去。
整个datamodule模块内容如下：
unit datamodule;interfaceuses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, Forms,
  Dialogs, DBTables, DB;type
  Tdatamodule1 = class(TDataModule)
    Database1: TDatabase;
    t_user: TTable;
    ds_user: TDataSource;
    t_add_user: TTable;
    ds_add_user: TDataSource;
    t_user_2: TTable;
    ds_user_2: TDataSource;
    t_change: TTable;
    t_change_list: TTable;
    ds_change_list: TDataSource;
    t_department: TTable;
    ds_department: TDataSource;
    t_job: TTable;
    ds_job: TDataSource;
    t_edu_level: TTable;
    ds_edu_level: TDataSource;
    t_counter: TTable;
    procedure LineItemsCalcFields(DataSet: TDataSet);
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  datamodule1: Tdatamodule1;implementation{$R *.dfm}procedure Tdatamodule1.LineItemsCalcFields(DataSet: TDataSet);
begin
  LineItemsExtendedPrice.Value := LineItemsPrice.Value *
    ((100 - LineItemsDiscount.Value) / 100);
  LineItemsTotal.Value := LineItemsExtendedPrice.Value *
    LineItemsQty.Value;
end;procedure Tdatamodule1.DataModuleCreate(Sender: TObject);
beginend;end.
当编译整个程序时就报错：[Error] datamodule.pas(44): Undeclared identifier: 'LineItemsExtendedPrice'
这个对象是datamodule自己生成的，我没有改过，到底是怎么回事呢？
这个错误与其他模块无关吧！

Answer 1

BUG?搞笑，过程删了，自己写！

Answer 2

明显不是D的bugLineItemsExtendedPrice，是哪儿的东东？？我怎么没见声明？

Answer 3

procedure Tdatamodule1.LineItemsCalcFields(DataSet: TDataSet);
begin
  LineItemsExtendedPrice.Value := LineItemsPrice.Value *
    ((100 - LineItemsDiscount.Value) / 100);
  LineItemsTotal.Value := LineItemsExtendedPrice.Value *
    LineItemsQty.Value;
end;这个东西我没定义过，里面的对象是系统自己生成的