belibig oftes Würfeln

[General Wolf1]

Hie vieleicht nochmal mein Quellcode damit man vieleicht mehr darunter versteht

procedure TForm1.Button1Click(Sender: TObject);
var a,x,b,c,g,f,h,i,j,k,l,m,n,o,p,q,r:integer;

begin
a:=strtoint(Edit1.Text);
repeat
randomize;
b:=random(6)+1;
case b of
1:inttostr(g);
2:inttostr(h);
3:inttostr(i);
4:inttostr(j);
5:inttostr(k);
6:inttostr(l);
end;
until a=a;
for f:= 0 to g do
begin
label16.Caption:=inttostr(f);
end;
for m:= 0 to g do
begin
label17.Caption:=inttostr(m);
end;
for n:= 0 to g do
begin
label18.Caption:=inttostr(m);
end;
for o:= 0 to g do
begin
label19.Caption:=inttostr(o);
end;
for p:= 0 to g do
begin
label20.Caption:=inttostr(p);
end;
for r:= 0 to g do
begin
label21.Caption:=inttostr(r);
end;
Vieleicht findet jemand den oder die Fehler und kann helfen