nochmal n-maliges Würfeln

[General Wolf1]

hihi muss nochmal nerven!
Hab da in meinem Programm immer noch ein Problem. Undzwar zählt der die Ergäbnisse nicht weiter sondern schreibt mir immer wieder nur 1 hin. kann mir mal einer sagen wie ich das mache das der auch bis 3 und mehr zählen kann!
Greez Dori
Hier mal NUR der Wichtige Teil aus meinem Quelltext
ganzes Projekt ist im Anhang!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var a,b,c,d,e,f,g,h,i:Integer; 
begin 
a:=strtoint(Edit1.Text); 
d:=0; e:=0; f:=0; g:=0; h:=0; i:=0; 
randomize; 

for b:= 1 to a 
do 
begin 
c:=random(6)+1; 
case c of 
1:label16.Caption:=inttostr(d+1);//bei der Ausgabe gibt der mir immer nur 1 an!! Wieso? 
2:label17.Caption:=inttostr(e+1); 
3:label18.Caption:=inttostr(f+1); 
4:label19.Caption:=inttostr(g+1); 
5:label20.Caption:=inttostr(h+1); 
6:label21.Caption:=inttostr(i+1); 
end;

Kann mir auch mal einer verrraten wie ich in der case anweisung den Zahlen eine Variable zuordne. Das wäre vielleicht schon die lösung.

[edit=Jelly] Nächstes Mal die Delphi-Tags bitte einpflegen. Mfg, Jelly[/edit]