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;