Met 3 TEdit
le Edit1 pour la valeur un
le Edit 2 pour la valeur deux

un boutton pour calculer la moyenne

procedure TForm1.Button1Click(Sender: TObject);

var
a,b,moyenne:real;
begin
a:=strtofloat(edit1.text); // a reçoit la valleur contenu de Edit1
b:=strtofloat(edit2.text); // b reçoit la valleur contenu de Edit2


moyenne:=(a+b)/2; // edit1 + edit2 et divise les par deux

 edit3.text:=floattostrF(moyenne,fffixed,10,2);
 // Donne le resultat dans edit3

end;

// double cliquer sur bouton1
var s,i,m : integer

begin

s=:0;i=:0;

with table do
first;

 begin
    while not eof do
      begin
      s:= s+tablechamp.valeu;
      i:=i+1;
      next;
      end;
    if i>0 then
    m:= s/i;// afficher m sur label ou edit ...ect (label.caption:= inttostr(m));

 end;
end;