Insertar Datos De Un Dbgrid A Una Tabla

[schaka]

Bueno mostrare ahora un metodo que he creado para recuperar los datos de un dbgrid llamado DProductos para despues insertarlos en una tabla, pero no me inserta valores nulos y me manda este mensaje "can not open a resultset" , pongo a continuacion mi metodo,

Código Delphi [-]
procedure TFMain.BAgregarClick(Sender: TObject);
var consulta,clave,producto,preciou,preciov:String;
begin
  clave:=DProductos.Fields[0].AsString;
  producto:=DProductos.Fields[1].AsString;
  preciou:=DProductos.Fields[4].AsString;
  preciov:=DProductos.Fields[3].AsString;

   Remision.close;
   Remision.sql.clear;
   consulta:='INSERT INTO remision VALUES(clave,producto,preciov,preciou)';
    Remision.SQL.Add(consulta);
    Remision.Open;

end;