1) randomize; nur einmalig in FormCreate aufrufen und nicht bei jedem ButtonClick
2) lass das mit dem Array sein
3) die Würfelfunktion würde ich nach dem KISS-Prinzip schreiben
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var
Wuerfel1, Wuerfel2: 1 .. 6;
Summe: 2 .. 12; // Das hier ist kein Array! Falls es hier Fehler beim Kompilieren gibt, schreib einfach Byte hin.
begin
Wuerfel1 := Random(6) + 1;
Wuerfel2 := Random(6) + 1;
Summe := Wuerfel1 + Wuerfel2;
end;