Unabhängig von der eigentlichen Frage:
Delphi-Quellcode:
case ImageID of
(0 or 4): begin
So wird 0 und 4 bitweise verknüpft und nur mit dem Ergebnis 4 verglichen.
Sollen beide Fälle berücksichtigt werden, muss das so ausschaun:
Delphi-Quellcode:
case ImageID of
0, 4: begin