Logika IF (DELPHI) yang sederhana

Setelah posting kemarin mengenai statemen pemilihan yang membahas if dan case,sekarang kita praktekan pada delphi dengan contoh sederhananya.. ,,,
okelah sekarang kita mulai saja okeh okeh.
kita bentuk formny kaya gini

untuk tombol keluar
cukup ketikan close; saja pada scriptnya
dan untuk tombol new scriptnya

edit1.text:='';
edit2.text:='';
edit3.text:='';
edit1.setfocus;

dan untuk tombol proses
scriptnya kaya gini

procedure TForm1.Button1Click(Sender: TObject);
var
nilai:integer;
ket:string;
begin
nilai:=strtoint(edit2.Text);
if nilai > 85 then
ket:='lulus'
else
ket:='tidak lulus';
edit3.Text:=ket;
edit3.enabled:=false;
end;