如何知道在grid中按下键时的所在的列,以及计算的问题？ (10分)

如何知道在grid中按下键时的所在的列？
现在grid中有三个字段，一个是数量，一个是单价，另一个金额
在输入数量的时候要求金额即时刷新显示，比如金额是10,输入数量的时候如果输入1，则金额显示10，继续输入2，即数量变成12的时候，金额相应的显示120?

procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
if DBGrid1.SelectedField <> nil then
Edit1.Text := inttostr(DBGrid1.SelectedField.FieldNo);

end;

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
if DataSource1.State = dsBrowse then
DBGrid1ColEnter(Sender);

end;