guardar de un DBGrid a una Tabla Paradox7

[megaredoxk]

un saludo muy especial...., compañeros me pueden ayudar a corregir este problemita..lo siguiente.

tablas paradox7 - Delphi6

tengo un DBGrid en el cual se insertan datos los cuales son
codigo cantidad producto valorunitario subtotal
1110 1 carro 5000 5000
1212 2 muñeco 1000 2000
1515 3 gafas 2000 6000

estos datos se deben guardar en la tabla3 = ventadetallada pero solamente se guarda el ùltimo registro ("solo un registro")
1515 3 gafas 2000 6000

el codigo que utilizo es el siguiente:
//Tabla Venta Detallada pero solo se guarda el primer campo y no todos los datos.

Table3.Append;
Table3.FieldByName('Código').Asinteger:= Dbgrid1.Columns[0].Field.Asinteger;
Table3.FieldByName('Producto').AsString:= Dbgrid1.Columns[2].Field.AsString;
Table3.FieldByName('Cantidad').Asinteger:= Dbgrid1.Columns[1].Field.AsInteger;
Table3.FieldByName('Valor').AsFloat:= Dbgrid1.Columns[3].Field.AsFloat;
Table3.FieldByName('SubTotal').AsFloat:= Dbgrid1.Columns[4].Field.AsFloat;
Table3.Post;
Table3.Next;

les agradezco mucho.