Contoh Program Case Of pada Delphi

Assalamu'alaikum wr.wb.
Pada kesempatan kali ini saya akan membagikan contoh program Case Of pada Delphi. Pada contoh berikut ini adalah program menghitung/menyatakan usia:

Tampilan desain program:

Baris Program:
procedure TForm1.Button1Click(Sender: TObject);
var usia : integer;
    klasifikasi : string;
begin
  usia := StrToInt(Edit1.Text);
  case usia of
    0..2 :
      klasifikasi :='Bayi';
    3..12 :
      klasifikasi :='Anak-anak';
    13..17 :
      klasifikasi :='Remaja';
    18..40 :
      klasifikasi :='Dewasa'
    else
      klasifikasi :='Manula';
   end;
   Edit2.Text := klasifikasi;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Edit1.Text:='';
  Edit2.Text:='';
  Edit1.setfocus;  
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;
end.

Sekian yang dapat saya sampaikan tentang penggunaan Case Of pada Delphi, semoga bermanfaat. Wassalamu'alaikum wr.wb.
Program kalkulator mengunakan delphi