RichEdit проверка на совпадение

[volod3000]

Здравствуйте !

Есть код :

for i := 0 to RichEdit2.Lines.Count - 1  do begin

     for y := 0 to length(RichEdit2.Lines[i]) do begin

          if RichEdit2.Lines[i][1] = '=' then 
             RichEdit2.Lines.Delete(i);

          end;
      end;

end;

Задача кода проверить текст построчно, и если в строке первый символ
знак '=', то строка удаляется вся.

Код вроде работает, но видимо не совсем правильно, после его выполнения выдает ошибку :

Access violation at address 0051974B in module 'PSor.exe'. Read of address 00000000.

Где ошибка ?

[Аватар]

  for i:=RichEdit2.Lines.Count-1 downto 0 do
    if (Length(RichEdit2.Lines[i])>0) and
       (RichEdit2.Lines[i][1]='=') then RichEdit2.Lines.Delete(i);

[volod3000]

Спасибо Аватар, я понял в чем ошибка !