Ich habe das Problem lösen können:
Delphi-Quellcode:
if AllesOK
then ImageListIcon.GetBitmap(idNotOK,ImageStatus.Picture.Bitmap)
else ImageListIcon.GetBitmap(idOK ,ImageStatus.Picture.Bitmap);
Der Umweg über die Bitmap geht offensichtlich nicht stabil, aber so ist es auch recht. Warum ich damals den Umweg über die Bitmap eingebaut habe, weiß ich aber heute auch nicht mehr.