momentskewkurtosis procedure

procedure TForm1.Button1Click(Sender: TObject);
var
mu,sigma:extended;
n,i:integer;
x:double;
begin
memo1.Clear;
randomize;
mu:=strtofloat(edit1.text);
sigma:=strtofloat(edit2.text);
n:=strtoint(edit3.text);
 for i:=0 to n-1 do
 begin
 x:=RandG(mu,sigma);
 memo1.Lines.Add(formatfloat('0.000',x));
 end;
 end;

procedure TForm1.RadioButton1Click(Sender: TObject);
var
m1,m2,m3,m4,ck,bk:extended;
data:array of double;
k,i:integer;
begin
k:=memo1.lines.Count;
setlength(data,k);
for i:=0 to k-1 do
 begin
  data[i]:=strtofloat(memo1.lines[i]);
  MomentSkewKurtosis(data,m1,m2,m3,m4,ck,bk);
 end;
 if radiobutton1.Checked then
 begin
 memo2.Lines.add('orjine göre 1.moment='+formatfloat('0.000',m1));
 end
 else if radiobutton2.Checked then
 begin
 memo2.Lines.add('orjine göre 2.moment='+formatfloat('0.000',m2));
 end
 else if radiobutton3.Checked then
 begin
 memo2.Lines.add('orjine göre 3.moment='+formatfloat('0.000',m3));
 end
 else if radiobutton4.Checked then
 begin
 memo2.Lines.add('orjine göre 4.moment='+formatfloat('0.000',m4));
 end
 else if radiobutton5.Checked then
 begin
 memo2.Lines.add('carpıklık katsayısı='+formatfloat('0.000',ck));
 end
 else if radiobutton6.Checked then
 begin
 memo2.Lines.add('basıklık katsayısı='+formatfloat('0.000',bk));
 end;
end;

end.