Вывод в Label циклом

[Frost-56]

Всем доброго дня. Подскажите в чем ошибка.
Есть таймер на половину секунды, каждые полсекунды он должен брать из ListBox строки по порядку и менять их в Label.

Мой код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
Timer1.Enabled:=true;
for i:= 0 to Listbox1.Count-1 do
Label1.Caption:=ListBox1.items[i];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Listbox1.Items.LoadFromFile('C:\Documents and Settings\User\Application Data\Closed Door\config.txt');
end;

При нажатии на батон выходит только первая строка и все останавливается.

Спасибо за ответы.

[Аватар]

var Number: Integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Number:=0;
 Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Number<ListBox1.Items.Count then Label1.Caption:=ListBox1.items[Number];
  Inc(Number);
  if Number>=ListBox1.Items.Count then Number:=0;
end;