procedure TForm1.Button1Click(Sender: TObject);
var sp_bianma:string;
    cbj:double;
begin
sp_bianma:='1001';
cbj:=2;
           ADOkc_cbj.Close ;    
           ADOkc_cbj.SQL.Clear ;
         * ADOkc_cbj.SQL.Add('update sp_kc set sp_cbj='+'''+cbj+''''');
           adokc_cbj.SQL.Add('where sp_id = '+''''+sp_bianma+'''');
           ADOkc_cbj.Open ;end;
标示行提示出错,怎样去得double类型的值呀?