Programa de promedio

[ecfisa]

Tenes razón, estoy empecinado con la idea de los seis valores...

Pero de todos modos sigo pensando que evaluando en el evento OnExit, se logra un código mas sencillo y compacto que haciéndolo todo al finalizar:

Código Delphi [-]
var
  Cont: Integer = 0;

procedure TForm1.EditExit(Sender: TObject);
var
  cd: Double;
begin
 if TryStrToFloat(TEdit(Sender).Text, cd) then
   Inc(Cont);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Prom: Double;
begin
  Prom:= (StrToFloatDef(Edit1.Text,0) + StrToFloatDef(Edit2.Text,0) +
          StrToFloatDef(Edit3.Text,0) + StrToFloatDef(Edit4.Text,0) +
          StrToFloatDef(Edit5.Text,0) + StrToFloatDef(Edit6.Text,0));
  if Prom > 0 then
    ShowMessage(Format('El promedio es: %8.2f', [Prom/Cont]))
  else
    ShowMessage('Nada que promediar');
  Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; Edit6.Clear;
  Cont:= 0;
end;

Saludos.