Random funktion mit variabel?

[Kroko1999]

ich hätte es so gemacht:

Delphi-Quellcode:

procedure TForm1.Alles_WuerfelnClick(Sender: TObject);
const 
  coSize = 6;
var
  A: array[0..9] of Byte;
  I: Byte;
begin
  for I := Low(A) to High(A) do A[I] := Random(coSize)+1;
end;