title: DELPHI. Programm is compiling. but nothing happens with form
body: <p>Compile is running, all ok. But nothing happens with form.<br>
  The form is launched, but no data is automatically added to it. If you enter the data manually, then when you press the button, nothing happens either </p>
  
  <p>It is necessary to display the table of values ​​of the function Y (x) and its expansions in the series S (x) for x varying from x0 to xk with step h = (x0-xk) / 10. The proximity of the values ​​of S (x) and Y (x) in the entire range of values ​​of x indicates the correctness of calculating S (x) and Y (x).</p>
  
  <pre><code>unit Unit1;
  
  interface
  
  uses 
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,ExtCtrls ;
  
  type
  TForm1 = class(TForm)
      Label1: TLabel;
      Label2: TLabel;
      Edit1: TEdit;
      Edit2: TEdit;
      Label3: TLabel;
      Label4: TLabel;
      Edit3: TEdit;
      Edit4: TEdit;
      Memo1: TMemo;
      Button1: TButton;
      procedure Form1Create(Sender:TObject);
      procedure Button1Click(Sender:TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;
  
  var
    Form1: TForm1;
  
  implementation
  {$R *.dfm}
  
  procedure TForm1.Form1Create(Sender: TObject);
  begin
    Edit1.Text := '0';
    Edit2.Text := '2';
    Edit3.Text := '5';
    Edit4.Text := '0.25';
    Memo1.Clear;
    Memo1.Lines.Add('Lab3, Kosyakova Dasha, 10702217');
    Button1Click(Sender);
  end;
  
  procedure TForm1.Button1Click(Sender:TObject);
  var
    x1, x2, x, h, a, s  : extended;
    N, k, c             : integer;
  begin
     x1 := StrToFloat(Edit1.Text);
     Memo1.Lines.Add('x1 = ' + Edit1.Text);
     x2 := StrToFloat(Edit2.Text);
     Memo1.Lines.Add('x2 = ' + Edit2.Text);
     N := StrToInt(Edit3.Text);
     Memo1.Lines.Add('N = ' + Edit3.Text);
     h :=StrToFloat(Edit4.Text);
     Memo1.Lines.Add('h = ' + Edit4.Text);
     C :=-1;
     X := x1;
     Repeat
       A := 1;
       S := 1;
       for k :=1 to N do
       begin
          a := c*a*x/k;
          s := s + a;
       end;
       Memo1.Lines.Add(
         'npи x = ' + FloatToStrF(x, ffFixed, 6, 2) + ' сумма = ' +
         FloatToStrF(s, ffFixed, 6,2));
       x := x+h;
     until x&gt;x2;
  end;
  
  end.
  </code></pre>