Программа для смены обоев(Delphi)

[Travaderevo]

Доброго времени суток! Хотел вот написать программу для смены обоев, да вот только сама смена запускаться не хочет, выбор файла работает, смена интервала работает. Ошибки не выдает. Подскажите что не так. Заранее спасибо.

Procedure Change;
const
 Desktop: TGuid='{75048700-EF1F-11D0-9888-006097DEACF9}'; //для получения доступа к рабочему столу
var
 i:integer;
 ActiveDeskTop:IActiveDesktop; // вроде понятно, зачем
begin
 ActiveDesktop:=CreateComObject(Desktop) as IActiveDesktop; //создаем объект и получаем разрешение доступа к рабочему столу
 ActiveDesktop.SetWallpaper(StringToOleStr(form1.Lbl1.Caption), 0); // определились с выбором картинки
 ActiveDesktop.ApplyChanges(AD_APPLY_ALL); // применяем картинку на рабочем столе
end;
procedure TForm1.fllst1Click(Sender: TObject);
begin
Lbl1.Caption:=fllst1.Filename;
Img1.Picture.LoadFromFile(Lbl1.Caption);
Btn1.Enabled:=true;
tmr1.Enabled:=false; Btn1.Enabled:=true;
end;
procedure TForm1.FormCreate(Sender: TObject);
var i : Real;
begin
 i:=0;
end;
procedure TForm1.tmr1Timer(Sender: TObject);
var i : Variant;
begin
 i:=i+1; //переходим к следующей картинке
 if i=form1.fllst1.Items.Capacity // если наш счетчик дошел до конца списка, идем в начало
 then i:=0;
 lbl1.caption:=form1.fllst1.Items[i]; //все понятно
 change; //меняем обои
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
tmr1.enabled:=true;
end;
procedure TForm1.btn2Click(Sender: TObject);
begin
tmr1.enabled:=false;
end;
procedure TForm1.se1Change(Sender: TObject);
begin
tmr1.Interval:=se1.Value;
end;
end.

[DIONISKA]

Переменная "I" здесь должна быть объявлена глобально или в public или private секциях формы, а не в каждой процедуре, например

var
  I:     Integer;
  Form1: TForm1;

и почему у неё тип "Variant", когда должен быть "Integer"? К тому-же лучше-бы имя файла передавать в параметре процедуры, а не брать и обращаться к объекту из процедуры. А вместо строчки

 if i=form1.fllst1.Items.Capacity // если наш счетчик дошел до конца списка, идем в начало

должно быть

 if i=form1.fllst1.Items.Count// если наш счетчик дошел до конца списка, идем в начало

так как свойство capacity отображает то количество элементов, которое объект способен хранить, а не то количество которое на данный момент хранится, для этого есть свойство Count.

ps: не стоит копипастить найденный на просторах интернета код ибо он не всегда правилен, не говоря уже об оптимальности.

[Alex11223]

Сообщение от DIONISKA

не стоит копипастить найденный на просторах интернета код ибо он не всегда правилен, не говоря уже об оптимальности.

... сказал автор сообщения с кодом, опубликованного на интернет-форуме.

[DIONISKA]

Сообщение от Alex11223

... сказал автор сообщения с кодом, опубликованного на интернет-форуме.

Первое правило ̶б̶о̶й̶ц̶о̶в̶с̶к̶о̶г̶о̶ клуба программистов.. никому доверять нельзя, только Великой Справке и то не всегда.