Percabangan Case

Yeh barudak tah kuurang dikasih contoh tentang percabangan case nya :) :D wakwakwakwakwak
so kita lihat wokeh kaya gimana2 nya aja nya tuuuuuch
bentuk formnya samakan saja hanya kita bedakan listingnya saja getoh ceritanya ngerti ga loe dodol. . .

tah ie untuk listing programnya untuk event button1 click . . sok akh tulis!!! hahahahahah

procedure TForm1.Button1Click(Sender: TObject);
var ket:string;
    nilai:integer;
begin
nilai:=StrToInt(edit2.Text);
ket:=edit3.Text;
case nilai of
  90..100:ket:='A';
  80..89:ket:='B';
  70..79:ket:='C';
  60..69:ket:='D';
  50..59:ket:='E';
  else
    messageDlg('Pengisian tidak valid',mtWarning,[mbOK],0);
    edit2.SetFocus;
end;
edit3.Text:=ket;
edit3.Enabled:=false;
end;

gimana? mudah kan,,,,
intinya kamu kamu dan kamu harus bilang saya ganteng tentu Delphi pun akan mudah!!! ahhahahhaahah