Ошибка при нажатии

[Владан]

задача довольно простая
Найти,y1 или y2 имеет найбольшее значение

Код компелируется , но принажатии первой кнопки выбивает ошибку
is not a valid floating point value .Хотя я ввожу число в поле Edit 1

var
  y1,y2,x:real;

procedure TForm1.Button1Click(Sender: TObject);
begin
  x:=StrtoFloat(Edit1.Text);

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  y1:=StrtoFloat(Edit2.text);
  y1:=(1+4*x+4*sqr(x))*(x/3-x/5);
  writeln(y1:6:2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  y2:=StrtoFloat(Edit3.text);
  y2:=(2*x*x*x)/(1-sqr(x));
  writeln(y2:6:2);
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
  if y1>y2 then
  writeln('y1')
  else writeln('y2');
  readln;
end;
end.

[kventin_zhuk]

А что конкретно вводите и на какую кнопку нажимаете? Есть вариант, что в Edit1 вводите не, допустим: 4,4 ( запятая), а 4.4(точка).

[Владан]

Сообщение от kventin_zhuk

А что конкретно вводите и на какую кнопку нажимаете? Есть вариант, что в Edit1 вводите не, допустим: 4,4 ( запятая), а 4.4(точка).

спасибо , я просто воодил через точку
Но есть еще ошибки при нажатии клавиш

[Stilet]

writeln(y1:6:2);

В оконном варианте его использовать нельзя.
Лучше кинь на форму Мемо и пиши результаты туда.