(Resolvido) Erro: is not a valid floating point value

[Matheus Henrique]

bom pessoal, ai segue o trecho do botão que eu to fazendo, mas quando eu compilo aparece o erro: is not a valid floating point value. quero que quando eu clicar no botao da media, o edit6 receba a media feita das somas dos outros edits, mas da esse erro. alguém pode me ajuda?

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;

media :=strtofloat(edit6.Text);

end;

[Jhonas]

quando eu compilo aparece o erro: is not a valid floating point value

Maneira correta

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);  //  Correção

end;

abraço

[Douglas Soares]

Devido a falta de resposta, e a outro tópico aberto pelo Matheus Henrique, utilizando o código disponibilizado pelo usuário Jhonas, altero a situação do tópico para (Resolvido).