Moin,
hier mal ein kleines Beispiel:
Code:
procedure TForm1.Button1Click(Sender: TObject);
var
wuerfel : integer;
begin
case Wuerfel of
1 : Image1.visible := true;
2 : Image1.visible := true;
3 : Image1.visible := true;
4 : Image1.visible := true;
5 : Image1.visible := true;
6 : Image1.visible := true;
end
end;
Hoffe das ist das was du meinst.
