Problem mit Image/ImageList

[hircusmutzus]

Hi,
ich will mit einen Button 6 Images per Zufallsgenerator mit der Augenzahl eines Würfels füllen. Diese 6 Augenzahlen habe ich in einer ImageList. Beim Klicken wird folgender Code ausgefüht:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageList1.GetBitmap(Random(5), Image2.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image3.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image4.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image5.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image6.Picture.Bitmap);
  ImageList1.GetBitmap(Random(5), Image7.Picture.Bitmap);
end;

Beim 1. Mal klappt es auch, doch dann beim 2. Mal tut sich nix mehr!
Könnt ihr mir vielleicht bei meinem Problem helfen?

MfG Matthias Volland