Dbgrid

ola pessoal ,estou tentando fazer esse calcula usando o dbgrid no evento do campo, mas dar um erro complicado

estou tentando fazer assim

procedure TFmControMesa.QryitensVL_PRECOChange(Sender: TField);
var

Calc:Real;
teste:string;
QT:String;
Preco:String;

 inherited;
 teste:='teste';
 //QryItens.FieldByName('cd_mesa').Value:=QryMesaCad.FieldByName('cd_mesa').Value;
 QT:= QryItens['QT_PEDIDA'] * QryItens['VL_PRECO'];
 // Preco:=QryItens['VL_PRECO'];
 // Calc:= QT * Preco;
 // Calc:=QryItens['QT_PEDIDA'] * QryItens['VL_PRECO'];
 QryItens['VL_PED_TOTAL']:=QT;desde ja agradeço pela ajuda