Fórum Parâmetro por referência #472769

Olá. Gostaria de saber se consigo passar a referência de uma variável para uma propriedade de uma classe (var), e ter na classe o valor desta variável sempre atualizado,ou seja, assim que o valor dela mude eu tenha esta informação na classe.

Só pra exemplificação:

unit uPag;
TTestePag = class
private
FValor : currency;
public
property Valor : currency write FValor;
property FValorPago: currency read FFValorPago;
property ValorRestante : currency read FValorRestante;

procedure AtualizaValorRestante();
end;

procedure AtualizaValorRestante();
begin
FvalorRestante := FValor - FValorPago;
end;

unit FrmCaixa;
...
procedure FrmCaixa.Button2Click(Sender: TObject);
var
Pag : TTestePag;
begin
Pag := TTestePag.Create;
Pag.Valor := 0;
end;