Deberías saber sacar la media de tres números: se suman los tres y se divide entre 3
Si son números enteros lo que entras en los edits, si no cambia StrToInt por StrToFloat
Código Delphi
[-]
ShowMessage( FloatToStr ( StrToInt(Edit1.Text) + StrToInt(Edit2.Text) + StrToInt(Edit3.Text) ) / 3 ) );
Va de memoria y sin comprobar, revisa los paréntesis.