Fórum Ajuda com Filelist #203511

iSeleciona : Integer;

  { se a posição do item da lista for igual ao total }
  if FileListBox1.ItemIndex = FileListBox1.Items.Count-1 then
  begin
    FileListBox1.ItemIndex := -1;
    Timer1.Enabled := False;
  end else
  begin
    FileListBox1.ItemIndex := iSeleciona;
  end;
  { incrementa o contador }
  inc(iSeleciona);

  iSeleciona := 0;
  FileListBox1.Directory := ´C:\´;
  Timer1.Enabled := True;