Цикл в ShellListView

[artemavd]

Доброе утро! Возник такой вопрос. В Image у меня грузится изображение, которое выбрано в ShellListView. Как записть цикл, чтобы с заданным интервалом грузились по очереди все изображения начиная и с первого и до последнего?

procedure TForm1.Timer2Timer(Sender: TObject);
var
 error: integer;
begin
 try
  Form1.Image1.Picture.LoadFromFile(Form1.ShellListView1.SelectedFolder.PathName);
  Form1.Label5.Caption:=Form1.ShellListView1.SelectedFolder.PathName;
  Form1.RzURLLabel1.Caption:=Form1.ShellListView1.SelectedFolder.PathName;
  Form1.Label10.Visible:=False;
 except
  on EAccessViolation do
  begin
   error:=1;
  end;
 end;
end;

[chertovich]

procedure TForm1.Timer2Timer(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TImage then
    begin
      try
       TImage(Components[I]).Picture.LoadFromFile(Form1.ShellListView1.SelectedFolder.PathName);
       Label5.Caption:=Form1.ShellListView1.SelectedFolder.PathName;
       RzURLLabel1.Caption:=Form1.ShellListView1.SelectedFolder.PathName;
       Label10.Visible:=False;
      except
        on EAccessViolation do
          error:=1;
      end;
    end;
  end;
end;

[artemavd]

Что-то не работает данный код.
Можно получить пояснение к этой строчке?

TImage(Components[I]).Picture.LoadFromFile(Form1.ShellListView1.SelectedFolder.PathName);

[chertovich]

Поясняю, TImage() приводит данный класс к TImage, это в случае совместимости. Components[I] это свойство формы, перед ним Form1 не ставил, потому что его и так "видно".