В чём проблема? Delphi

В чём проблема? При компилировании выделяет x:=StrToFloat(Edit1.Text);
Программа на которой я работаю Delphi 7
Скриншот ошибки: http://p02.userfiles.me/p/040238543573/1355650547/55527777/1024x768/694b345d68fdb50f4125a1d4b186e9e6/c22ad7d8b85863c517b0408cdbd4d7df/0/vladiknosovka/skrin.png
Код программы:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
edt1: TEdit;
edt2: TEdit;
edt3: TEdit;
lbl1: TLabel;
lbl2: TLabel;
lbl3: TLabel;
chk1: TCheckBox;
rb1: TRadioButton;
rb2: TRadioButton;
rb3: TRadioButton;
mmo1: TMemo;
btn1: TButton;
procedure btn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var x,y,z,u,ma:extended;
begin
// Ввод исходных данных
x:=StrToFloat(Edit1.Text);
y:=StrToFloat(Edit2.Text);
z:=StrToFloat(Edit3.Text);
//Вывод введенных исходных данных
Memol .Lines.Add(' x='+FloatToStrF(x.fFixed,8,4));
Memol .Lines.Add(' y='+FloatToStrF(y.fFixed,8,4));
Memol .Lines.Add(' z='+FloatToStrF(z.ffl=ixed,8,4));
// Проверка номера нажатой кнопки и выбор функции
case RadioGroupl.ltemlndex of
0: u:=cos(x);
1:u:=sqr(x);
2: u:=exp(x);
end;
// Нахождение максимального из трех чисел
if u>y then ma:=u else ma:=y;
if z>ma then ma:=z;
// Вывод результата
if CheckBoxLChecked then
//Проверка состояния кнопки CheckBoxl
Memol .Lines.Add(' max='+lntToStr(Round(ma))
else
Memol .Lines.Add(' max='+FloatToStrF(ma.ffGeneral,8,2));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text:='0,r;
Edrt2.text:='0,356';
Edrt3.text:='0,53';
Memol .Clear;
Memo1.Lines.Add('Pe3-Tbi ст. гр. 552002 Петрова И.В.');
RadioGrobpl .ltemlndex:=0; //Активна первая кнопка RadioGroupl
end;

end.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.