香港买砖石戒指在哪里:急！请问我的Delphi程序出了什么问题？

急！请问我的Delphi程序出了什么问题？
可总是写到table1的events事件OnCalcFields的计算金额这个命令：table1count.value:=table1price.value*table1number.value;时，
总是出现这个错误：
[错误] Unit5.pas(49): Undeclared identifier: 'table1count'
[错误] Unit5.pas(49): Missing operator or semicolon
[错误] Unit5.pas(49): Missing operator or semicolon
[错误] Unit5.pas(49): Missing operator or semicolon
[致命错误] Unit4.pas(7): Could not compile used unit 'Unit5.pas'

请问怎么修改呢？

我设计的窗体如这个图：
http://botu.bokee.com/photodata/2006-4-12/010/042/194/1093134/1093134_h.jpg

程序如下：
unit Unit5;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, DBTables, Buttons, StdCtrls, Mask, DBCtrls, Grids, DBGrids,
ExtCtrls;

type
TForm5 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Panel1: TPanel;
DBGrid1: TDBGrid;
DBNavigator1: TDBNavigator;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
DBEdit1: TDBEdit;
DBEdit2: TDBEdit;
DBEdit3: TDBEdit;
DBEdit4: TDBEdit;
DBEdit5: TDBEdit;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Table1: TTable;
DataSource1: TDataSource;
procedure Table1CalcFields(DataSet: TDataSet);
procedure DBEdit1Change(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Table1CalcFields(DataSet: TDataSet);
begin
table1count.value:=table1price.value*table1number.value;
end;

procedure TForm5.DBEdit1Change(Sender: TObject);
begin
table1.Insert;
table1.Edit;
end;

procedure TForm5.SpeedButton1Click(Sender: TObject);
begin
table1.Refresh;
end;

end.

是不是因为没有定义table1count,table1price,table1number呢？可我在type里写上
Table1BDEDesigner: TStringField;
Table1Price: TCurrencyField;
Table1Number: TFloatField;
Table1BDEDesigner2: TStringField;
Table1Count: TCurrencyField;
保存时，却出现"字段Form5.Table1Price没有相应组件"
"字段Table1Number没有相应组件"
"字段Table1BDEDesigner2没有相应组件"
"字段Table1Count没有相应组件"
"字段Table1BDEDesigner没有相应组件"
应该怎么修改啊？