Update registro

[yevabas]

Hola caral

Gracias por tu tiempo y por responder tan rapido, mira lo que tengo en el doble click es

Código Delphi [-]
procedure TForm1.GrdLoDiDblClick(Sender: TObject);
begin
     TbLoDi.Edit;

     Vedi := True;
     JvgPageControl1.ActivePage:= ts3;

end;

esto me lleva a otra pagina donde se encuentran los dbedit, entonces tengo lo siguiente

Código Delphi [-]
procedure TForm1.ts3Enter(Sender: TObject);
begin
       if Vedi then
         begin
            TbVentas.Insert;
      
            dbePIEDRAS2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('PIEDRA_NL').AsInteger);
            dbeTIPO_VE.Text := 'V';

      
            dbeCUAD2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CUAD_NL').AsInteger);
            dbeREDO2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('REDO_NL').AsInteger);
            dbeOVAL2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OVAL_NL').AsInteger);
            dbeLAGR2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('LAGR_NL').AsInteger);
            dbeCORA2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CORA_NL').AsInteger);
            dbeCAUC2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('CAUC_NL').AsInteger);
            dbeDROP2.Text := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('DRP_NL').AsInteger);
            dbeOtr2.Text  := IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('OTRAS_NL').AsInteger);
            dbeTPIED_VEN.Text :=IntToStr(GrdLoDi.DataSource.DataSet.FieldByName('TPIED_NL').AsInteger);
            cbbLoDi.ItemIndex := cbbMoVe.ItemIndex;
            lbl77.Caption := cbbMoVe.Text;
            lbl78.Caption := cbbMoVe.Text;
            dbeMONED_VEN.Text := cbbMoVe.Text;
            dbeKilaC.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('KILATES_NL').AsFloat);
            dbeVAL_KIL1.Text:= FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_KIL_NL').AsFloat);
            dbeVAL_TO4.Text := FloatToStr(GrdLoDi.DataSource.DataSet.FieldByName('VAL_TO_NL').AsFloat);
      
         end;
end;

Aqui ya estan todos los campos que necesito pasar a los dbedit, la tabla lotes tambien tiene un campo autoincrementado, pero no lo necesito visualizar en el dbgrid,