delphi-2010 - 如何将信息添加到delphi确定的对话框中

Question

我需要获取 Delphi 解决的信息并在弹出对话框中显示答案

procedure TfrmPointsCalculation.btnCalculateClick(Sender: TObject);
var
 rinput: real;
 ipionts: integer;
 bntcalculculate: integer;
begin
 rinput := strtofloat(edtamount.Text);

 ipionts := trunc (rinput/500)*5 ;

 reddisplay.lines.add('Amount Spent' + #9 +floattostrF(rinput,ffcurrency,8,2));

 reddisplay.Lines.add('Pionts Earned' +#9 + inttostr(ipionts));

 bntcalculculate := messagedlg ('',mtConfirmation,
                              [mbOk], 0);

我在其中输入什么代码('')来显示 Delphi 找到的答案？

标签： delphi-2010