[teclilla]

Ok, el formulario visualiza los datos del albaran en DBEdits y el detalle del albarán en Datagrid. Despues tengo un DBNavegator para moverme.
El formulario tiene un boton Añadir (para añadir un albaran) que realiza lo siguiente:

Código Delphi [-]
procedure TFormAlbaran.SpeedButtonAnadirClick(Sender: TObject);
var
   id_ant: longint;
begin
        DBEditsEscritura;
        Label13.Caption:='Añadiendo un nuevo albarán.';
        DesactivarBotones;
        Talbaranes.Last;
        id_ant:=Talbaranes.FieldByName('Idalb').AsInteger;
        Talbaranes.Append; //modo insert
        //introducimos idalb calculado y fecha actual
        Talbaranes.FieldByName('Idalb').AsInteger:=id_ant+1;
        Talbaranes.FieldByName('Fecha').AsDateTime:=Date;
end;

entonces relleno en los DbEdits los demás campos generales del albarán observaciones y tal, y despues tengo un boton que me lleva a otro formulario para elegir producto y cantidad y al darle aceptar lo añado al Dbgrid del siguiente modo:

Código Delphi [-]
procedure TFormAlbaran.SpeedButtonAnaLProdClick(Sender: TObject);
begin
        if (EditCodigo.Text='') or (EditCantidad.Text='') then
           if Application.MessageBox('Seleccione un producto e introduzca la cantidad','Detalle del Albarán',mb_iconExclamation+mb_ok)= id_ok then
              Abort;
        //pasamos datos al DBGrid
        TalbprodDetalle.Last;
        TalbprodDetalle.Append; //modo edicion
        TalbprodDetalle.FieldByName('Codprod').AsString:=EditCodigo.Text;
        //lookup nombre
        TalbprodDetalle.FieldByName('Cantidad').AsString:=EditCantidad.Text;
        EditCodigo.Text:='';
        EditNombre.Text:='';
        EditCantidad.Text:='';
end;

en las dos tablas realizo un Append y despues al pulsar el Boton de Confirmar realiza el codigo que os puse en el post de mas arriba.

¿Hay algo que estoy haciendo mal?

Muchas gracias.