программа на delphi не работает как надо

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, TeEngine, TeeFunci, Series, ExtCtrls, TeeProcs,
  Chart;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var j,c,r,sum,sum2,xn,sr,x,y,delta,t,sigma,d, b, g,f:real;
    m,n,p,k,i:integer;
 //j: array[1..500] of real;
 sum1: array [1..10000] of real;
 Str:string;
 begin
randomize;
//Memo1.Clear;
m:=10;
while m<=29 do begin //ìàò îæèäàíèå
  m:=m+10;
    c:=m*0.2; //äèñïåðñèÿ
   k:=8000;
  sum:=0;
  sum2:=0;
  for p:=1 to k do begin
  sum1[p]:=0;
  end;
 for p:=1 to k do begin
     x:=0;
   for i:=1 to 12 do begin
    r:=random;
   x:=x+r;
  end;
  x:=x/12;
  y:=c*x+m;
 j:=y;
 sum:=sum+j;
 sum1[p]:=j;
 end;
 sr:=sum/k;
  //sigma:=0;
   for p:=1 to k do begin
   sum2:=sqr(sr-sum1[p]);
    sigma:=sqrt(sum2/(k-1));
     end;
     delta:=sigma/sr;
     edit1.Text:=FloatToStr(k);
     edit2.text:=FloatToStrf(delta,ffgeneral, 5,8);
     edit3.text:=FloatToStrf(sigma,ffgeneral,5,8);
     edit4.text:=FloatToStrf(sr,ffgeneral,5,8);
     //k:=k+5;
  //if delta[m,k]=0 then begin
  //delta[m,k]:=delta[m,k]+1;
  end;
 //end;
//end;
    //Memo1.Lines.Add('Ðåçóëüòàò:');
  //for m:=1 to 5 do begin
    Str:='';
   //for k:=1 to k do begin
      if Str <> '' then begin
        Str := Str + Char(9);
     // end;
     //delta[m,k]:=Format('%.5f',[t+0.000000000001]);
     //format('%0,2f',[delta[m,k]]);
      //Str:=Str+FloatToStr(delta)+' ';
      //delta[m,k]:=StrToFloat(Form1.StringGrid1.Cells[m,0]);
      //delta[m,k]:=StrToFloat(Form1.StringGrid1.Cells[k,1]);
      //t:=floattostr(k);
      //str:=str+FloatToStr(random);
      //end;
     //Memo1.Lines.Add(str);
   end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
 
end.