procedure TForm1.PayButton(Sender: TObject);
var
  V: Currency;
begin
  V := 100;
  ShowMessage(
    CurrToStr(
      V +
      TRegistrationFee.New(V).Value +
      TDiscountRate.New(V, Student.Birthday)
    )
  );
end;