2-Würfel experiment Problem

[varzil]

Hallo
ich habe für den Mathe Unterricht ein Programm programmiert um
das Experiment 2 geworfener Würfel darzustellen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var m,Wa,Wb,W: integer;
begin
for m:=1 to strtoint(Edit1.text) do
begin
randomize;
Wa:=random(6)+1;
randomize;
Wb:=random(6)+1;
W:=Wa+Wb;


Stringgrid2.cells[Wa,Wb]:=inttostr(strtoint(Stringgrid2.cells[Wa,Wb])+1);
Stringgrid1.cells[W-2,1]:=inttostr(strtoint(Stringgrid1.cells[W-2,1])+1);

http://img3.imagebanana.com/img/c5kx.../Unbenannt.JPG


Wie auf dem Bild zu sehen ist, hat die 7 einen relativ geringen Wert obwohl sie den höchsten haben müsste.
Woran kann das liegen?

Vielen Dank für eure Hilfe =)