Ajuda com Exibição de Resultados no Delphi

Ola, estou tentando fazer um programa (básico da faculdade) para calcular a média do aluno.
Porém não estou conseguindo exibir o resultado da média, ao terminar de inserir as 04 notas
a janela do programa fecha. (O código está compilando sem erros normalmente).
Segue abaixo o Código Fonte:

var
nota1, nota2, nota3, nota4, media : Double;
begin
try
nota1 := StrToFloat(edtNota1.Text);
nota2 := StrToFloat(edtNota2.Text);
nota3 := StrToFloat(edtNota3.Text);
nota4 := StrToFloat(edtNota4.Text);
media := (nota1 + nota2 + nota3 + nota4) / 4;
edtMedia.Text := FormatFloat(''###,###,##0.00'',(media));

except
ShowMessage(''Erro ao calcular média. Use apenas Números e Vírgulas'');
end;
end;

Alguém poderia por favor me dizer onde estou errando? Já utilizei essa base para calcular
"Média de Consumo de Combustível e IMC " no Android e funcionou perfeitamente.