listbox

[DM2005]

Hola de nuevo...
el codigo funciona bien....solo que el recorre el listbox y no me avisa cuando paso al siguiente item (ej.: 01 al 02)...y si me avisa cuando llego al final..

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
 ListBox2.Items.LoadFromFile('C:\IPCapitulo.txt');
end;

IPCapitulo.txt :
01
01
01
02
02
03
03
03
04

Código Delphi [-]
 
procedure TForm1.SpeedButton1Click(Sender: TObject);
var anterior : String;
begin
  anterior := '';
  with ListBox2.Items do begin
    if ListBox2.ItemIndex < Count-1 then begin
       ListBox2.ItemIndex := ListBox2.ItemIndex + 1;
       if (ListBox2.Items[ListBox2.ItemIndex] <> anterior) and (anterior <> '') then
          showmessage('cambio');
       anterior := ListBox2.Items[ListBox2.ItemIndex];
    end
    else MessageDlg('Final del curso !',mtInformation,[mbOk],0);
  end;
end;

tambien estaba probando con esta otra procedure que encontre por el foro:

Código Delphi [-]
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  begin
    with ListBox2 do
      begin
        ItemIndex:= (ItemIndex + 1) mod Count;
       if ItemIndex < Count then
        if Items[ItemIndex] <> Items[ItemIndex] then
         begin
         showmessage('cambio');
         end;
      end;
  end;
end;

nuevamente gracias por la ayuda...
saludos