Duvida Delphi

[Zefhiron]

Tenho o seguinte código:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    EdtNome: TEdit;
    EdtNota1: TEdit;
    EdtNota2: TEdit;
    EdtNota3: TEdit;
    Media: TButton;
    Limpar: TButton;
    Sair: TButton;
    GroupBox1: TGroupBox;
    Label6: TLabel;
    Label7: TLabel;
    EdtMedia: TEdit;
    EdtSituacao: TEdit;
    procedure MediaClick(Sender: TObject);
    procedure LimparClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MediaClick(Sender: TObject);
begin
 if(EdtNome.Text <> '') then

begin
 EdtMedia.Text:= (floattostr(strtofloat(EdtNota1.Text)+ strtofloat(EdtNota2.text)+
  strtofloat(EdtNota3.text)));
end

else
 Showmessage('Entre com o nome');
 EdtNome.setFocus;
end;

procedure TForm1.LimparClick(Sender: TObject);
begin
 EdtNome.clear;
 EdtNota1.clear;
 EdtNota2.clear;
 EdtNota3.clear;
 EdtMedia.clear;
 EdtSituacao.clear;

 EdtNome.SetFocus;

end;

end.

Queria saber como faço para tirar a média das 3 notas e como faço para pegar o nome e jogar no campo EdtSituaçao. Tipo "Zefhiron - Aprovado" caso a nota seja maior que 6 ou "Zefhiron - Reprovado" caso nota seja, menor que 6.

Desde já agradeço a ajuda. Obrigado

[LNW]

Zefhiron,

Bom, a média vai ser a soma das três notas dividida por 3.

E para apresentar dessa forma como você quer, poderia fazer:

  If (StrToFloat(EdtMedia.Text) > 6) Then
     EdtSituacao.Text := EdtNome.Text + ' - Aprovado' Else
     EdtSituacao.Text := EdtNome.Text + ' - Reprovado';

LNW