Percorrer todo os Itens do ListBox?

Como percorrer todo o conteudo de um ListBox?

Tentei assim:

vari : integer;beginfor i:=0 to ListBox1.Items.Count dobegin ShowMessage( ListBox1.Items.Strings[i] );end;end;

O erro ai em cima acontece assim.

Suponhamos que eu adicionei 5 itens dentro do ListBox e depois executei o script acima. FUNCIONA!

Mas se eu adicionar 5 itens e apagar o item 3... Quando eu executar o FOR, ele vai pesquisar pelo indices do ListBox, quando chegar onde tinha o terceiro item, vai dar erro pois o indice nao vai bater com a variavel...

Como eu resolvo isso?