IF sederhana

buatlah form seperti gambar brikut : 

pada button1 klik 2x dan isi perintah berikut : 

procedure TForm1.Button1Click(Sender: TObject);

var

   a : integer;

begin

 a := StrToInt(Edit1.Text);

 if a <= 100 then

 Edit2.Text := 'A';

 if a <= 80 then

 Edit2.Text := 'B';

 if a <= 50 then

 Edit2.Text := 'C';

 if a <= 30 then

 Edit2.Text := 'D';

 if a <= 10 then

 Edit2.Text := 'E';

end;

Sekian dulu contoh IF. nanti di tambah lagi IF ... ELSE  dan IF ... ELSEIF ... ELSE