[Alexo]

Код:

var
...
stl : TStrings;

procedure TForm1.Button1Click(Sender: TObject); // "Ещё"
begin
stl.Add(Edit1.text);
Edit1.Text:='';
end;

procedure TForm1.Button2Click(Sender: TObject); // "Средний балл"
var
  sr : real;
  i : integer;
begin
  for i := 0 to stl.Count - 1 do
    sr := sr + StrToInt(stl.string[i]);
  sr := sr / stl.Count;
  Label2.Caption:=FloatToStr(sr);
end;

в Formcreate написать
stl := TStrings.Create;
в formdestroy
stl.free;