Code:
var Zahl : Array [1..6] of Integer;
...
procedure Erzeuge_Augenzahl;
var i,rdm : Integer;
begin
  randomize;
  for i:=1 to 100000 do begin
    rdm:=Random(6)+1;
    inc(Zahl[rdm]);
  end;
end;
Wie oft eine Zahl gewürfelt wurde kriegste dann über das Array raus, also z.B.
Code:
Edit1.Text:=IntToStr(Zahl[1]);
zeigt dir an wie oft die 1 gewürfelt wurde

zu mehr hab ich jetzt keine Lust ^^