[[xEsk]]

Otra forma, sencillita tambien seria el paso de parametros por referencia.

Aqui el ejemplo:

Código Delphi [-]
procedure asientos({parametros originales}; var r_dinero: Integer; var r_porcenta: Integer);
...
r_dinero:={lo q sea};
r_porcenta:={lo q sea};

Saludos.