在“盘数量”（Edit1）框中输入购买的光盘数，单击“计算”（Button1）按钮后在“应收金额”（Edit2）框中显示应收钱数。单击“结束”（Button2）按钮结束程序。
单击“计算”（Button1）按钮的事件处理程序如下：
procedure TForm1.Button1Click(Sender: TObject);
var
Disk, Money: Integer;
begin
Disk := StrToInt(Edit1.Text);
if Disk >= 50 then
Money := 2 * Disk
else
Money := 3 * Disk;
Edit2.Text := IntToStr(Money);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
当用户在Edit1（盘数量）中输入数量值25，然后按“确定”按钮，在Edit2（应收金额）显示结果为 。
A、75
B、50
C、150
D、35

---