Delphi. Ряды. Вывод в таблицу.

[furgingerbread]

Здравствуйте!

Проблема с запуском программы. Ошибка EConvertError with message "is not a valid floating point value".

Задание во вложении, а здесь привожу код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label8: TLabel;
    Edit5: TEdit;
    StringGrid1: TStringGrid;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

const
N = 100;
type
Tx = array[1..N] of Extended;
Ter = array[1..N] of Integer;
var
X,S: Tx;
Er:Ter;
Er2,Km,M: Integer;
E,Xn,Xk,Dx: Extended;

procedure FillX(var X: Tx);   // Заполнение массива X
var
I:Integer;
begin
X[1]:=Xn;
for I:=2 to M do
X[I]:=X[I-1] + Dx;
end;

procedure Series(X: Tx; E, Xn, Xk:extended; Km:Integer; var S:Tx; var Er2: Integer); // Вычисление суммы ряда
var
  R: extended;
  I,J:Integer;
begin
  S[1]:=0;
  X[1]:=Xn;
  R:=1;
  Er2:=1;
  I:=1;
  J:=1;
  while (X[I]<Xk) do
   begin
   repeat
     S[J]:= S[J] + R;
     R:= R*X[I]/J;
       if abs(R)<E then
         begin
           J:=Km;
           Er2:=Er2-1;
       end;
     Inc(J);
   until (J > Km);
   Inc(I);
   end;
end;

Procedure RezOut(M: integer; var X,S:Tx; var Er: Ter); // Вывод результатов
var
I,J: Integer;
    begin
    for I:=1 to M do
    for J:=1 to M do
    if (Er[I]=0) then
    begin
     Form1.StringGrid1.Cells[I, 0]:=('X[' + IntToStr(I) + ']=' + FloatToStr(X[I]));
     Form1.StringGrid1.Cells[I,1]:=FloatToStrF(S[J], ffGeneral, 6, 5);
    end
    else
     ShowMessage('Сумма ряда не найдена');
   end;

procedure TForm1.Button1Click(Sender: TObject);
begin
E:=StrToFloat(Edit1.Text);
Xn:=StrToFloat(Edit2.Text);
Xk:=StrToFloat(Edit3.Text);
Dx:=StrToFloat(Edit4.Text);
M:= trunc((Xk - Xn)/Dx + 1);
Edit5.Text:=(IntToStr(M));
StringGrid1.Cells[0, 0]:='X/Y';
StringGrid1.Cells[0, 1]:='Y';

FillX(X);
Series(X,E,Xn,Xk,Km,S,Er2);
RezOut(M,S,X,Er);
end;

end.

Подскажите, какие здесь косяки? Как исправить ошибку?

Большое спасибо.

[newerow1989]

Обычно в Edit-ах числа надо ставить, а не пробелы

[furgingerbread]

В Edit-ах пользователь должен вводить числа, для чего используются преобразования StrToFloat.

Если речь о пробелах перед StrToFloat в этом куске:

E:= StrToFloat(Edit1.Text);
Xn:= StrToFloat(Edit2.Text);
Xk:= StrToFloat(Edit3.Text);
Dx:= StrToFloat(Edit4.Text);

то я их убрал, но ошибка по-прежнему вылезает.

[digitalis]

Скорее всего, дело в десятичном разделителе decimal separator - см. http://www.freepascal.org/docs-html/...separator.html
Попробовать заменить десятичную точку в содержимом Edit '.' на ',' или наоборот. Попробовать в 'Е' формате, напр., число пи : 31415Е-4
Если охота работать с привычной дес. точкой, перед первым чтением записать :
DecimalSeparator := '.' ;