Ein Spiel mit Delphi programmieren

[Sfaizst]

Damit das auch mit der ImageList funktioniert würde ich das mal so machen: (Mach ich grad deine Hausaufgaben!?)
(hab das jetz im Notepad schnell hingeklatscht, Funktion also nicht getested, deine Image3-12 hab ich einfach mal rausgeschmissen (waren ja sowieso nich auf der Form)....)

Delphi-Quellcode:

...

procedure TForm1.Create( Sender : TObject );
  begin
    Randomize; // <-- Randomize wird im Oncreate aufgerufen...
  end;

procedure TForm1.EndeBtnClick( Sender : TObject );
  begin
    close;
  end;

procedure TForm1.TButtonClick( Sender : TObject );
  var
    einsatz, guthaben, wurf1, wurf2, augensumme : byte;
  begin
  {  Image1.Visible := false;     <-- Brauch ich nich....
    Image2.Visible := false;       }

    einsatz := strtoint( EinsatzCbB.text );
    wurf1 := random( 6 ) + 1;
    wurf2 := random( 6 ) + 1;
    augensumme := wurf1 + wurf2;

    case augensumme of
      2 .. 6 :
        begin
          ErgebnisPanel.Caption := 'Einsatz verloren';
          faktor := 0;
        end;

      7, 8, 9 :
        begin
          ErgebnisPanel.Caption := 'Einsatz zurück';
          faktor := 1;
        end;

      10 :
        {=} begin // Das = muss weg!
          ErgebnisPanel.Caption := 'Einsatz verdoppelt '; // Ein ' fehlte
          faktor := 2;
        end;

      11 :
        {=} begin // Das = muss weg!
          ErgebnisPanel.Caption := 'Einsatz verdreifacht';
          faktor := 3;
        end;

      12 :
        {=} begin
          ErgebnisPanel.Caption := 'Einsatz vervierfacht';
          faktor := 4;
        end;

    else
      ErgebnisPanel.Caption := 'Würfel auf Kippe ';
    end; // Das fehlte hier

    ImageList1.GetBitmap(Wurf1,Image1.Picture.Bitmap);  //<-- Wenn Bitmaps in der Liste sind...
    ImageList1.GetBitmap(Wurf2,Image2.Picture.Bitmap);  //<-- Natürlich auch für das 2. Image
    //Ich denke mal, größe der Images und der Imagelist wurde bereits im Objektinspektor eingestellt....

    Ergebnis2Panel.Caption := inttostr( faktor * einsatz );
  end;

Viel Glück weiterhin