[ecfisa]

Empezado por roman

Ya dejar de rizar el rizo

Creo que tenes razón, tratar de arreglarlo lo va a complicar mucho más...

En realidad la primera propuesta que había pensado hacía la media aritmética al finalizar:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i,Cont: Integer;
  Prom,cd: Double;
begin
  Cont:= 0;
  Prom:=0;
  for i:= 0 to ComponentCount - 1 do
   if Components[i] is TEdit then
     if TryStrToFloat(TEdit(Components[i]).Text, cd) then
     begin
       Prom:= Prom + cd;
       Inc(Cont);
     end;
  if Cont > 0 then
    ShowMessage(Format('El promedio es: %8.2f',[Prom/Cont]))
  else
    ShowMessage('Nada que promediar');
end;

Pero pensé que no correspondía al nivel del ejercicio. Luego me embarullé tratando de simplificar...

Saludos.