Schon mal dran gedacht, eine Funktion für die Zuordnung zwischen Index und Bilddatei einzusetz en ?
Delphi-Quellcode:
function GetBildDatei(index:integer):string;
begin
if index=0 then result := 'Blau.bmp'
else if index=1 then result := 'Rot.bmp'
else ...
Bau mal diese Funktion ein und wenn du gut bist, stellst du die IF-Anweisungen auf ein
Case um.