Image toggeln lassen bei OnClick

[shmia]

Bei mir tut das.
Ich habe aber noch etwas verändert:

Delphi-Quellcode:

   if Image1.Tag >= ImageList1.Count-1 then
      Image1.Tag := 0
   else
      Image1.Tag := Image1.Tag+1;
   Image1.Picture := nil;  // sonst gibts Misch-Masch
   ImageList1.GetBitmap(Image1.Tag,Image1.Picture.Bitmap);