ImageList Problem bei for-Schleife

[LoW_FloW]

Ich habe mehrer Bilder und wenn man auf eins von den Bilder klickt, soll für das Bild ein anderes geladen werden. Dafür habe ich folgenden Source zusammen gestellt:

Delphi-Quellcode:

procedure TForm1.imgBackroundMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  i, Bild : integer ;
  imgLeft , imgWidth, imgTop, imgHeight : integer ;
begin
if klick = true then begin
  Bild := 0 ;
  for i := 1 to 33 do begin
    imgLeft   := (findcomponent('Img'+inttostr(i)) as TImage).Left   ;
    imgWidth  := (findcomponent('Img'+inttostr(i)) as TImage).Width  ;
    imgTop    := (findcomponent('Img'+inttostr(i)) as TImage).Top    ;
    imgHeight := (findcomponent('Img'+inttostr(i)) as TImage).Height ;
      if  (X >= imgLeft) and (X <= imgLeft+ImgWidth ) and
          (Y >= ImgTop ) and (Y <= ImgTop +ImgHeight) then Bild := i ;
    end;  
    if Bild > 0 then                                 // <-- PROBLEM !!!!!!!!!
    FigurListe.GetBitmap(3, (findcomponent('Img'+inttostr(Bild)) as TImage).Picture.Bitmap) ;
  end;
end;

Nun habe ich das Problem, dass das Bild einfach nicht geladen wird ( FigurListe.GetBitmap(3, (findcomponent('Img'+inttostr(Bild)) as TImage).Picture.Bitmap) ). Setzte ich dafür zur Probe z.B. ein "Label1.Caprion := 'gehts?';" ein, funtzt es . Ich werde einfach nicht schlauer