[lmikle]

Ну, я подозреваю, что надо сделать большое кол-во генераций в некотором диапазоне, например, от 0 до 99. Далее посчитать кол-во соотв. значений и вывести 2 графика распределения - для твоего алгоритма и для стандартного.

Серии в TChart создать руками, а код примерно будет такой:

Код:

type
  TRndTest = record
    Std, Tst : Integer
  end;

const
  N = 100000;

var
  A : Array [0..99] Of TRndTest;
  I : Integer;
begin
  Randomize;

  // Init array
  For I := 0 To 99 Do
    Begin
      A[i].Std := 0;
      A[i].Tst := 0;
    End;

  // Run tests
  For I := 1 To N Do
    Begin
      Inc(A[Random(100)].Std);
      Inc(A[Random(100)].Tst);
    End;
      
  // Fill the chart
  For I := 0 To 99 Do
    Begin
      Chart1.Series[0].AddXY(I,A[i].Std); // Serie for built-in random
      Chart1.Series[1].AddXY(I,A[i].Tst);  // Serie for your random
    End;
end;