Wybieranie nazwy komonentu

Mam mały problem. Mam 121 komponentów timage o nazwach i1.i2.i3 itd. I teraz jak załadować obraz do komponentu o nazwie w zależności od zmiennej x. Na przykład

procedure Tglowna.Button1Click(Sender: TObject);
var
x:integer;
begin
for x:=0 to 121 do
CO TUTAJ WPISAĆ.picture.loadfromfile('link');
end;

var
  I : integer;
begin
  for I := 1 to 121 do
  begin
    TImage(Self.FindCOmponent('I' + IntToStr(I))).Picture.LoadFromFile('plik.jpg');
  end;
end;

Wielkie dzięki - działa