Al dar click al boton guardar pon el siguiente codigo, asi se van a guardar los datos
:
adotabledetpes.open;
for x := 0 to stringgrid1.RowCount - 1 do
begin
with adotabledetpes do
begin
Last;
Insert;
FieldValues['Nombre'] := stringgrid1.Cells[0,x];
FieldValues['Cantidad'] := strtocurr(stringgrid1.Cell[1,x]);
Post;
end;
end;
adotabledetpes.close;