procedure ScriptEvent (var Value : variant);

begin

Value := 10;

end;

This example sets the Value parameter equal to 10. In this case the value 10 is hard-coded.

procedure ScriptEvent (var Value : variant);

var MyFloatVariable : double;

begin

MyFloatVariable := 10;

Value := MyFloatVariable

end;

This example sets the Value parameter to the value of the MyFloatVariable variable.

procedure ScriptEvent (var Value : variant);

begin

Value := TaxAmount(200,12.5)

end;

This example sets the Value parameter to the result of the TaxAmount function. Value is therefore set to 25 (200 * 12.5%).