Program Delphi Untuk Konversi Nilai Akhir Mahasiswa

procedure TNilai.Button1Click(Sender: TObject);
Var
  skor:real;
begin
  skor:=StrToFloat(Edit1.Text);
  if skor>=101 then Edit2.Text:='ANDA SALAH MEMASUKAN NILAI' else
  if skor>=80 then Edit2.Text:='A' else
  if skor>=70 then Edit2.Text:='B' else
  if skor>=60 then Edit2.Text:='C' else
  if skor>=50 then Edit2.Text:='D' else
                  Edit2.Text:='GAGAL'

end;

procedure TNilai.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
  Edit2.Text:=' ';
end;

procedure TNilai.Button3Click(Sender: TObject);
begin
MainMenu.Show;
Nilai.Hide;
end;

procedure TNilai.Timer1Timer(Sender: TObject);
begin
label1.Left:=label1.Left-30;
 if  label1.Left<=-150 then
 label1.Left := 600;
end;


end.