Penggunaan Case Of dalam Delphi

dengan syarat

1-5 adalah operator
6-1 adalah staf
11-15 adalah eksekutif
16-20 adalah senior eksekutif
21-25 adalah asisten manajer
25-30 adalah manaje

Procedure TForm.Button1Click
var
g:integer;
begin
g:=strtoint(edit1.text);
case g of
begin
1..5:edit2.text:='operator';
6..10:edit2.text:='staf';
11..15:edit2.text:='eksekutif';
16..20:edit2.text:='senior eksekutif';
21..25:edit2.text:='asisten manajer';
25..30:edit2.text:='manajer';
else
edit2.text:='masukan salah';
end
end;