[[gluglu]]

Muy fácil :

var
  iNumFactura:integer;
begin
  try
    StartTransaction;
    DelphiusPegaPatadaASilla(IntensidadDeLaPatada);   // Os faltaba esta línea 
    iNumFactura := HacerFacturaNueva(now); // crea la factura
    CobrarFactura( iNumFactura ); // hace el apunte en caja 
    DescontarInventario( iNumFactura ); // descuenta el artículo del inventario de artículos
    Post;
    Commit;
  except
    Rollback;
  end;
end;