Неизвестная ошибка

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, math;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    RadioGroup1: TRadioGroup;
    Button1: TButton;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Button1Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  f,r,y,a,b,q,count,summa,E,x,s,z,w:real;
  p,l,m,c:string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, '-', ',']) then
Key:=#0;
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8]) then
Key:=#0;
end;
 
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, #13, '-', ',']) then
Key:=#0;
keypreview:=true;
if (Key = #13) then Button1.Click;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
i,N:integer;
 
begin
a:=1;
b:=2;
s:=0;
q:=1;
count:=0;
summa:=0;
y:=0;
x:=strtofloat(edit1.Text);
N:=strtoint(edit2.Text);
E:=strtofloat(edit3.Text);
if (x>-1) and (x<1) then
begin
for i:=1 to N do
        begin
            s:=b;
      r:=power(x, s);
          f:=a/b;
      z:=a*r;
      y:=abs(z);
    if y>E then
        begin
            s:=b;
          summa:=summa+z;
          count:=count+1;
        end;
   q:=q+z;
   a:=a+2;
   b:=b+2;
   f:=f*(a/b);
  end;
w:=1/sqrt(1+sqr(x));
c:=floattostrF(summa,ffgeneral,5,2);
 
if RadioGroup1.ItemIndex=0 then
  begin
    label9.Caption:='';
    label7.Caption:=floattostrF(w,ffgeneral,5,2);
    label5.Caption:=floattostrF(q,ffgeneral,5,2);
    label11.Caption:=floattostrF(summa,ffgeneral,5,2);
  end;
if RadioGroup1.ItemIndex=1 then
  begin
    label7.Caption:=floattostrF(w,ffgeneral,5,2);
    label5.Caption:=floattostrF(q,ffgeneral,5,2);
    label11.Caption:=floattostrF(summa,ffgeneral,5,2);
    label9.caption:=floattostrF(count,ffgeneral,5,2);
  end;
 
end
else
ShowMessage('×èñëî õ äîëæíî ëåæàòü â ãðàíèöàõ (-1;1)');
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=1 then
begin
label3.Visible:=true;
edit3.Visible:=true;
label2.Visible:=false;
edit2.Visible:=false;
end;
 
if RadioGroup1.ItemIndex=0 then
begin
label3.Visible:=false;
edit3.Visible:=false;
label2.Visible:=true;
edit2.Visible:=true;
end;
 
end;
 
end.

SomeValue := 5.75;

SomeValue := StrToFloat ('5.75');

Button1.Click;

Button1Click(Sender);