Ist nicht viel, aber man kann den Cast auf TImage weglassen:
Delphi-Quellcode:
if (Sender = Rating1) or (Sender = Rating2) or (Sender = Rating3) or (Sender = Rating4) or (Sender = Rating5) then
begin
Mit etwas Aufwand wäre das hier eine Möglichkeit mit einer einmalig erzeugten Liste:
Delphi-Quellcode:
Ratings := TList<TObject>.Create;
Ratings.AddRange([Rating1, Rating2, Rating3, Rating4, Rating5]);
und folgenden Abfragen:
Delphi-Quellcode:
if Ratings.Contains(Sender) then
begin