Contoh Program Menggunakan Combo box pada Delphi

Assalamu'alaikum wr. wb.
Pada kesempatan kali ini saya akan share baris program Delphi menggunakan combo box dikombinasi dengan case of.
Baris Program:
procedure TForm1.ComboBox1Change(Sender: TObject);
var tarif : real;
    fasilitas : string;
    kelas : integer;
begin
    Kelas := ComboBox1.ItemIndex;
    case kelas of
    0: begin
        tarif := 1000000;
        fasilitas := 'AC + Double bed +Breakfast';
        end;
    1: begin
        tarif := 700000;
        fasilitas := 'AC + Single bed + Breakfast';
        end;
    2: begin
        tarif := 500000;
        fasilitas := 'AC + Single bed';
        end;
    3: begin
        tarif := 300000;
        fasilitas := 'Single bed';
        end;
    end;
    Edit1.Text:=FloatToStr(tarif);
    Edit2.Text:=fasilitas;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Close;
end;
end.

Tampilan:

Demikian yang dapat saya sampaikan semoga bermanfaat, wassalamu'alaikum wr. wb.