Case . . . OF dalam Delphi

Selain if delphi juga mengenal Case. berbeda di dalam menggunakan if dengan
Case, Jika menggunakan if expresi pembandingnya bisa menggunakan type data
string, integer, dan lainnya.
Namun Case kita hanya bisa menggunakan type data Char atau angka.
contoh :
If Edit1.text:=' ' then tetapi case tidak bisa menggunakan cara seperti diatas.
Format Case :

1. case expressi of caseList1:   
2. statement1; ...   
3. case List n:   
4. statement n;   
5. end  

contoh : untuk demo ini buatlah aplikasi baru, tambahkan edit1, button1 dan memo1. berikut ini listing programnya

1. procedure TForm1.Button1Click(Sender: TObject);   
2. var angka:integer;   
3. pesan:string;   
4. begin   
5. angka:=strtoint(edit1.text);   
6. case angka of 1: pesan:='angka 1';   
7. 5: pesan:='Bilangan Ganjil';   
8. 6..10 : pesan:='angka antara 6 sampai 10';  
9.  11..20 : begin showmessage('ada 2 statatement pakai begin end');   
10. pesan :='Bilangan antara 11 sampai 20';   
11. end;   
12. end;   
13. memo1.lines.add(pesan);   
14. end;   
15. end.