TImageList gibt TImage Bild, Bild wechselt aber nicht

[Super_Chemiker]

Delphi-Quellcode:

procedure TForm1.WurfClick(Sender: TObject);
begin
  randomize;
  W1 := random(5);
  W2 := random(5);
  if W1>W2 then
  begin
    WL.Draw(WB1.Canvas, 0, 0, W1);
    WL.Draw(WB2.Canvas, 0, 0, W2);
  end
  else
  begin
    WL.Draw(WB1.Canvas, 0, 0, W2);
    WL.Draw(WB2.Canvas, 0, 0, W1);
  end;
  Wurf.Enabled := true;
end;

bzw. dasselbe mit GetImage...