Организовать ввод с клавиатуры неограниченного количества вещественных чисел

var
  Form1: TForm1;
  a,s:double;
  q:integer;
implementation
 
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
ShowMessage('Вводите действительные числа');
Edit2.ReadOnly:=true;//запретим ввод в Эдит2
end;
procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
val(Edit1.Text,a,k); //проверяем что введено число
if k<>0 then
 begin
  Edit1.Clear;
  Edit1.SetFocus;
 end
else
 begin
  a:=StrToFloat(Edit1.Text);
  inc(q); //считаем количество
  s:=s+a;//считаем сумму
  Edit2.Text:=Edit2.Text+' '+Edit1.Text; //выводим
  if s>35.96 then //если сумма больше
   begin
    s:=s/q;
    ShowMessage('Количество чисел='+inttostr(q)+#13#10+
                'Среднее арифметическое='+format('%.2f',[s]));
    Button1.Enabled:=false;//выключаем кнопку
   end;
  Edit1.Clear;//очистим Эдит
  Edit1.SetFocus;//переведем в него фокус
 end;
end;