[Aristarh Dark]

Код:

var
  img:TImage;
  i:integer;
begin
  for i:=1 to 3 do
    begin
      img:=FindComponent('Image'+IntToStr(i)) as TImage;
      if img<>nil then
        begin
          with img do
             begin
                //много-много кода
             end;
        end;
    end;
end;

как-то так...