Delphi - Creacion de Facturas

Hola Foro estoy haciendo un soft de facturacion y control de stock y estoy trabado en la parte de facturas de compras no puedo visualizar los detalles de una factura, utilizo los componentes ADO para manipular los datos mi consulta es si el siguiente codigo esta bien:

procedure TF_FacCompras.BTNnuevafacClick(Sender: TObject);
begin
SCLcabecera.Enabled:=True;
ComboComprobente.SetFocus;
DSfaccompras.DataSet.Insert;
ComboFechaFactura.Date:= now;
ComboFechaCarga.Date:= now;
end;

procedure TF_FacCompras.BTNnuevoitemClick(Sender: TObject);
begin
ADOTdetalles.Insert;
SCLdetalle.Enabled:=True;
DBEditCodArticulo.SetFocus;
DBEditCantidad.Text:='1';
end;

procedure TF_FacCompras.BTNborraritemClick(Sender: TObject);
begin
ADOTdetalles.Delete;
end;

procedure TF_FacCompras.BTNalmacenarClick(Sender: TObject);
begin
DBEditPrecioCosto.Text:= DBEditPrecio.Text;
DBEditDescripcion.Text:= ComboArticulos.Text;
ADOTdetalles.Post;
end;

procedure TF_FacCompras.BTNconfirmarClick(Sender: TObject);
begin
ADOTdetalles.Edit;
ADOTfaccompras.Edit;
DBEditFechaFactura.Text:= DateToStr(ComboFechaFactura.date);
DBEditFechaCarga.Text:= DateToStr(ComboFechaCarga.Date);
ADOTfaccompras.Post;
ADOTdetalles.Post;
SCLcabecera.Enabled:=False;
SCLdetalle.Enabled:=False;
end;

la Tabla de DETALLES en la propiedad master source agrego la de cabecera de facturas con IDfacturas como indexador

Si tienen un ejemplo donde pueda ver mi error les agradeceria que me lo pasen, gracias de antemano.