[bogdanzykov]

Код:

procedure TForm7.Button1Click(Sender: TObject);
begin
  k := 0;
  str := edit3.text;
  edit3.text := '';
  while pos(' ',str) <> 0 do  //если у нас есть пробелы в строке
 begin
  a := strtofloat(copy(str,1,pos(' ',str)-1));  //Записываем в переменную а новое число
  if (a >= strtofloat(edit1.text)) and (a <= strtofloat(edit2.text)) then  //проверяем вхождение в рамки edit1 - для минимального значение edit2 - для максимального значения
   begin
     edit3.text := edit3.text + a + ' '; //выводим подходящие числа в edit3
     inc(k);  //Считаем количество попаданий в рамки
   end;
 end;
 if (strtofloat(str) >= edit1.text) and (strtofloat(str) <= edit2.text) then
  begin
    edit3.text := edit3.text + str;
    inc(k);
  end;
  edit3.text := 'Кол-во чисел ='+ inttostr(k) + ' числа: '+ edit3.text;
 
 
 
end;
 
end.

вот так вот?