Вычисляемое поле SQLQuery1

[maxika]

Здравствуйте, подскажите пожалуйста, как сделать автоматический рассчет вычисляемого поля SQLQuery1, при изменении другого числового поля.
Когда я это делаю:

procedure TForm1.SQLQuery1Поле1Change(Sender: TField);
begin
SQLQuery1.FieldByName('ВычислПоле') .AsInteger:=SQLQuery1.FieldByName(' Поле1').AsInteger * 2;
end;

Перестает работать функция авто сохранения данных:

procedure TForm1.SQLQuery1AfterPost(DataSet: TDataSet);
begin
SQLQuery1.ApplyUpdates;
end;

Пожалуйста подскажите что нужно исправить.

[xxbesoxx]

Не через OnChange а через OnCalcFields

procedure TForm1.SQLQuery1CalcFields(DataSet: TDataSet);
begin
 SQLQuery1.FieldByName('ВычислПоле').Value:= SQLQuery1.FieldByName(' Поле1').AsInteger * 2; 
end;