ayuda con tabla en delphi

[7pilas]

me sigue apareciendo lo mismo aun con el
table3.append;

me dijeron que alomejor lo que tenia que poner era un autoincrement, no se si sera eso pero no se como hacerlo, igual anexo todo el script que uso en el boton alomejor eso sirve para que se den una idea:

procedure TForm3.BitBtn1Click(Sender: TObject);
var Cambio : Real;
Cadena : String;
begin
Cambio := StrToFloat(Edit1.Text) - StrToFloat(Label3.Caption);
//Verifico que el pago sea correcto
if Cambio >= 0 then
begin
//Mando un mensaje dando gracias y el cambio si es que hay.
if Cambio = 0 then
ShowMessage('GRACIAS POR SU COMPRA')
Else
begin
Cadena := 'CAMBIO $';
Cadena := Cadena + FloatToStr(round((cambio*100))/100);
Cadena := Cadena + ' GRACIAS POR SU COMPRA';
ShowMessage(Cadena);
end;
//Descuento los productos vendidos en el almacen.
Table1.First;
While Table1.Eof = False do
begin
Form2.Table1.FindKey([Table1.FieldByName('Clave').AsInteger]);
Form2.Table1.Edit;
Form2.Table1.FieldByName('Cantidad').AsInteger := Form2.Table1.FieldByName('Cantidad').AsInteger - Form3.Table1.FieldByName('Cantidad').AsInteger;
Form2.Table1.Post;
Table1.Next;
end;
//Registro los productos vendidos en la tabla producto1.
Table3.Append;
Table3.FieldByName('clave').AsFloat := Table1.FieldByName('clave').AsFloat ;
Table3.FieldByName('cantidad').AsFloat := Table1.FieldByName('cantidad').AsFloat ;
Table3.FieldByName('precio').AsFloat := Table1.FieldByName('precio').AsFloat ;
Table3.FieldByName('producto').AsString := Table1.FieldByName('producto').AsString ;
Table3.FieldByName('subtotal').AsFloat := Table1.FieldByName('subtotal').AsFloat ;
Table3.FieldByName('Fecha').AsDateTime := Date;
Table3.Post;
//Registro la venta en la tabla Ventas.
Table2.Edit;
Table2.FieldByName('Ingreso').AsFloat := Table2.FieldByName('Ingreso').AsFloat + StrToFloat(Label3.Caption);
Table2.Post;
BitBtn2.Click;
Dbgrid1.Fields[0].FocusControl;
end
else
begin
ShowMessage('El Pago es menor al total a pagar');
Edit1.SetFocus;
end;
end;