Usando If no Edit.text

[Matheus Henrique]

Ola pessoal, queria fazer o seguinte..

o usuario poe cada nota do aluno em cada edit, queria que ao clicar no botão "calcular media" no edit 6 aparecesse a media dele, ex: 7,5 e no edit7 mostrasse se com essa nota ele estaria aprovado, retido ou de exame..pra aparecer a media no edit6 eu já fiz.. o código está abaixo, agora queria que ao mesmo tempo que eu clicasse no botao "calcular media" o edit6 aparecesse a media e no edit7 a situação dele, ou seja, se ele esta aprovado, retido ou de exame.. como faz isso? valeu galera, espero que tenham entendido o meu problema..

aqui está o código já feito:

procedure TForm1.botaomediaClick(Sender: TObject);

var

nota1, nota2,nota3,nota4,media:real;

begin

nota1 :=strtofloat(Edit2.Text);

nota2 :=strtofloat(Edit3.Text);

nota3 :=strtofloat(Edit4.Text);

nota4 :=strtofloat(Edit5.Text);

media :=(nota1+nota2+nota3+nota4)/4;

Edit6.Text := floattostr(media);

end;

[Barfis]

Bom dia!

Tenta assim:

if (media >= media para aprovar) then
begin
      edit7.text := 'Aprovado';
end
else
if (media < media para aprovar) and (media >= media para exame) then
begin
      edit7.text := 'Exame';
end
else
if (media < media para exame) then
begin
      edit7.text := 'Retido';
end;