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

[zagit12]

помогите с программой, не могу не как сделать нормально! нужно чтобы рандомные числа от 0 до 1 с плавающей запятой вычислялись по формулам которые приведены в программном коде ниже и чем больше число измерений тем меньше delta[m,k], потом вывести всё на график, с графиком можно не делать, главное чтобы программа работала как задуманно, у меня не работает как надо выдает числа в непонятном формате в степени какойто(1,4217371799665E-312 1,45838850310834E-303), заранее спасибо вы меня выручаете.
всё что под // -слешами это так пытался что то делать но не работает

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;
    Memo1: TMemo;
    Button2: TButton;
    Edit2: TEdit;
    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 c,r,sum,sum2,xn,sr,x,y,t,sigma,d, b, g,f:real;
    m,n,p,k,i:integer;
 j: array[1..500] of real;
 delta: array[1..5, 1..20] of real;
 //r: array [1..12] of real;
 Str:string;
 begin
randomize;
Memo1.Clear;
m:=10;
while m<=29 do begin //мат ожидание
  m:=m+10;
    c:=m*0.2; //дисперсия
   k:=5;
  delta[m,k]:=1;
 while delta[m,k]>0.1 do begin
  sum:=0;
  sum2:=0;
   for n:=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;
  edit2.text:=FloatToStr(m);
 j[n]:=y;
sum:=sum+j[n];
end;
 sr:=sum/k;
  //sigma:=0;
   //for n:=1 to k do begin
   sum2:=sum2+sqr(sr-sum);
    sigma:=sqrt(sum2/(k-1));
     delta[m,k]:=sigma/sr;
     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[m,k])+' ';
      //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.

[kta87]

Число представлено в экспоненциальной форме. Смотрите Format

[zagit12]

я не могу организовать форматированный вывод, я пытался но не получаеться