form4.clientdataset1.Append;
form4.clientdataset1['codigo'] := codigo.Text;
form4.clientdataset1['descripcion'] := descripcion.Text;
form4.clientdataset1['precio'] := precio.Text;
form4.clientdataset1['cantidad'] := cantidad.Text;
form4.clientdataset1['folio'] := folio.Text;
form4.clientdataset1['fecha'] := fecha.Date;
form4.clientdataset1['subtotal'] := floatToStr( StrTofloat(cantidad.Text) * StrTofloat(precio.Text) );
form4.clientdataset1.Post;