Delphi IF语句的应用

procedure TForm1.btn1Click(Sender: TObject);
var
    w, y: Real;
begin
    if edt1.Text = '' then
        edt1.Text := '0';
    w := StrToFloat(edt1.Text);

    if w <= 50 then
        y := 0.25 * w
    else if w <= 100 then
        y := 0.25 * 50 + 0.35 * (w - 50)
    else
        y := 0.25 * 50 + 0.35 * (100 - 50) + 0.45 * (w - 100);

    edt2.Text := FloatToStr(y);
    edt2.SelStart := 0;
    edt2.SelLength := Length(edt2.Text);
end;

procedure TForm1.btn2Click(Sender: TObject);
begin
    edt1.Text := '';
    edt2.Text := '';
end;