Simulation 50:50

[verwirrt]

Hallo,

ich simuliere 50:50 Chance, das klappt auch per Random(2) (0 oder 1).

Nun möchte ich eine Statistik, die wiederholte Serien gleichen Ergebnisses aufzeigt.

Also: 0 - verloren, 1 - gewonnen

Bsp: 010110100010011110100000111011

2 mal gewonnen: 2
3 mal gewonnen: 1
4 mal gewonnen: 1
5 mal gewonnen: 0
...

längste Serie am Stück gewonnen: 4

Hat jemand eine Idee, wie man das hier einbauen kann:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, Anzahl, Wert: Integer;
begin
  Anzahl:= StrToInt(Edit1.Text);
  for i:= 1 to Anzahl do
  begin
    Wert:= Rand;
    ...
  end;
end;

Danke schonmal...

Gruß