Mehrere TImages in if-Vergleich kürzen

[DieDolly]

Kann man sowas hier irgendwie kürzer schreiben? Ich habe es schon mit einer Menge als Set versucht aber das klappt nicht.

Delphi-Quellcode:

 if (TImage(Sender) = Rating1) or (TImage(Sender) = Rating2) or (TImage(Sender) = Rating3) or (TImage(Sender) = Rating4) or (TImage(Sender) = Rating5) then
  begin