[Resolvido] Erro ao deletar item de listbox

Boa noite,

Queria uma ajuda que está me tirando do serio, tenho o seguinte código que quando executado da o erro de list index out of bounds;

for i:=0 to ListBox1.Items.Count-1 do begin
if (ListBox1.Items.Strings[i] = 'Heuristico,'+ListView1.Selected.SubItems[0]) then begin

 ListBox1.Items.Delete(i);

 MessageBox(GetForegroundWindow(), pchar('Item deletado com sucesso!), 'Informação', MB_ICONINFORMATION + MB_OK);
 end;
 end;

Porem não vejo erro nenhum...

Alguem saberia me ajudar?

grato.