em codigo de sistema para escola

Estou desenvolvendo um sistema que soma as notas do p1.text p2.text p3.text p4.text, essas notas vao para media.text

se o numero que estiver no media_escola.Text for igual ou maior ao media.Text irá aparecer no sit.text a mensagem de aprovado

se for menor, a mensagem de recuperação, porem o delphi 7 acusa erro, segue meu codigo abaixo que estou utilizando ! -> Se puderem me ajudar ! =)

procedure TForm1.Button1Click(Sender: TObject);

begin

media.Text := (inttostr(strtoint(p1.Text)+strtoint(p2.Text)+strtoint(p3.Text)+strtoint(p4.Text

))

if(inttostr(strtoint(media_escola.Text)>=strtoint(media.Text))

sit.Text := 'Aprovado'

else

sit.Text := 'Recuperação'

end;

end.