Program Delphi If Then Else Menggunakan and or

Assalamu'alaikum wr.wb
Program Delphi If Then Else menggunkan and or yang akan saya share kali ini adalah program seleksi Mahasiswa dengan menggabungkan beberapa kriteria. Di bawah ini saya cantumkan baris program dan tampilannya.

Program Seleksi  Mahasiswa

procedure TfrmSeleksiMhs.Button1Click(Sender: TObject);
var TB,U,BI,IPA,MTK:Integer;
Hasil:String;
begin
   TB:=StrToInt(edit1.Text);
    U:=StrToInt(edit2.Text);
   BI:=StrToInt(edit3.Text);
  IPA:=StrToInt(edit4.Text);
  MTK:=StrToInt(edit5.Text);
  If(TB>150)and (U<50) and (BI>60) and ((IPA>70) or (MTK>70))
  then
  Hasil:='Lulus'
  Else
  Hasil:='Tidak Lulus';
  edit6.text:=hasil;
end;
procedure TfrmSeleksiMhs.Button3Click(Sender: TObject);
begin
 close;
end;
procedure TfrmSeleksiMhs.Button2Click(Sender: TObject);
begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit4.Text:='';
 edit5.Text:='';
 edit6.Text:='';
 edit1.setfocus;
end;
end.

Tampilan:

Demikian yang dapat saya sampaikan kurang lebihnya mohon ma'af, wassalamu'alaikum wr.wb.