Program case of kombinasi dengan combo box pada Delphi

Assalamu'alaikum wr.wb.
Pada kesempatan kali ini saya akan share baris program delphi menggunakan case of dan combo box, untuk desain programnya lihat tampilan di bawah.

procedure TForm1.Button1Click(Sender: TObject);
var Kelas, LamaInap : Integer;
    BiayaInap, Diskon, Total : Real;
begin
  Kelas:= StrToInt(Combobox1.Text);
    LamaInap := StrToInt(Edit1.Text);
    case Kelas of
      1 : BiayaInap:= 150000;
      2 : BiayaInap:= 100000;
      3 : BiayaInap:= 75000;
    end;
    case Lamainap of
      1..7 : Diskon:=0;
      8..15: Diskon:=5;
      else
           Diskon:= 10;
    end;
    Total:=BiayaInap*LamaInap * (1 - Diskon/100);
    Edit2.Text := FloatToStr(BiayaInap);
    Edit3.Text := FloatToStr(Diskon);
    Edit4.Text := FloatToStr(Total);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit3.Text:='';
  Edit4.Text:='';
  Combobox1.setfocus;
  Combobox1.ItemIndex:=-1;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;

end.

Tampilan:

Demikian yang dapat saya sampaikan kurang lebihnya mohon maaf, wassalamu'alaikum wr.wb.