Final de un listbox

[ZayDun]

Hola!, me ha surgido un problema con un listbox, el problema es que yo recorro el listbox mediante codigo atravez de un Timer

Código Delphi [-]
Lista.ItemIndex:=(Lista.ItemIndex+1);

y me gustaria saber cuando llega al final del Listbox para poder detener el timer. gracias por tomaros vuestro tiempo.