dbgrid中鼠标换列时的事件，遇到的问题，

代码好下：
procedure TForm1.dxDBGrid2ChangeColumn(Sender: TObject;
  Node: TdxTreeListNode; Column: Integer);
  var
   str1,str2,str3:string;
begin
 if Column in [4..7] then
    begin
     qryYpbm.Edit;
     str1:= trim(qryYpbm.FieldByName('fi_backdeposit').asstring);
     str2:= trim(qryYpbm.FieldByName('fi_frodeposit').asstring);
     if trim(str1)='' then  str1:='0';
     if trim(str2)='' then  str2:='0';
     str3:=floattostr(strtofloat(str1) - strtofloat(str2));
     qryYpbm.FieldByName('fi_quantity').asstring:= str3;
     qryYpbm.Post ;
    end;
end;
在实际操作时老是报"Invalid variant operation" 错误，搞不明白，望大家帮忙解决；（或换行时的事件怎么写）。