Delphi - Inputan Nilai Sederhana (Percabangan)

=================================================>
Tampilan Form1 untuk Inputan Nilai Sederhana ... =================================================>

#Klik 2x pada form1 ..
Isi script/kode di bawah ini untuk memberikan nama pada komponen form1. 

-------------------------------------------------------------------------------------------

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption:='Inputan Nilai Sederhana';
label2.Caption:='Nilai';
Label3.Caption:='Predikat';
Label4.Caption:='Keterangan';

Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';

Button1.caption:='Proses';
Button2.Caption:='Ganti warna';
Button3.Caption:='Hapus';
Button4.Caption:='Exit'; 
end;


-------------------------------------------------------------------------------------------

#Klik 2x pada Button1, kemudian isi dengan script di bawah ini untuk memberikan kondisi dengan percabangan if-else, dan dengan memberikan range nilai yang ditentukan.

-------------------------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var A:Integer;
begin
A := StrToInt (Edit1.Text);
 if (A>=0) and (A < 30) then
      begin
      edit2.Text:='E';
      edit3.Text:='Gagal';
      end
 else if (A>=30) and (A<50) then
      begin
      edit2.text:='D';
      edit3.Text:='Gagal';
      end
 else if (A>=50) and (A<70) then
      begin
      edit2.text:='C';
      edit3.Text:='Lulus';
      end
  else if (A>=70) and (A<85) then
       begin
       edit2.Text:='B';
       edit3.Text:='Lulus';
       end
 else if (A>=85) and (A<=100) then
       begin
       edit2.Text:='A';
       edit3.Text:='Lulus';
       end
 else
       begin
       edit2.Text:='Salah Input';
       edit3.Text:='Ulangi Lagi';
       end;
end;

-------------------------------------------------------------------------------------------

#Klik 2x pada Button2, kemudian ketikkan script di bawah ini untuk memberikan
warna pada font yang terletak di komponen edit. 

-------------------------------------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Font.Color:=clred;
Edit2.Font.Color:=clyellow;
Edit3.Font.Color:=clgreen;
end;

-------------------------------------------------------------------------------------------

#Klik2x pada Button3, kemudian ketikkan script di bawah ini untuk
membersihkan hasil layar/output-an yang terjadi jika ingin mebersihkan layar output 

-------------------------------------------------------------------------------------------

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
end;

-------------------------------------------------------------------------------------------

 #Klik 2x, pada Button4, kemudian ketikkan script di bawah ini untuk
keluar dari form ketika sedang running.

-------------------------------------------------------------------------------------------

procedure TForm1.Button4Click(Sender: TObject);
begin
Application.Terminate;
end;

 end.

-------------------------------------------------------------------------------------------