Recorrido de un Tlistview

[Flores]

Hola a todos.
Tengo un problema con un Tlistview. He de rrecorrerlo y borrar de la lista los Items que tienen marcado la casilla de verificación. El problema que al hacerlo siempre me da un error. Creo que es porque lo recorro con un bucle for tal como el siguiente:

procedure borramsgs;
var
i: integer;
begin

for i:=0 to Form1.list2.Items.Count-1 do
begin
if Form1.list2.Items[i].Checked then Form1.list2.Items[i].Delete;
end;

end;


Cuando llega al Item 5 (por ejemplo) y lo borro, creo que ya el campo count del Tlistview.Items cambia y me transtoca el bucle for. Al menos esto es lo que creo.
¿Estoy equivocado?
¿El error me lo merezco por mal programador?
¿Saldré alguna vez de este "bucle infinito de desesperanza"?
¿Alguien me sacará de la oscuridad para llevarme de nuevo a la luz?

Gracias por adelantado.