جواب ندادن Perform(EM_LINEINDEX برای پرش به سطر مورد نظر در ممو

[mbshareat]

سلام
من یه کد نوشتم دلفی ایراد می گرفت که پرانتز باز انتظار داره نه بسته(البته بعدا فهمیدم Ln یه تابعه!)
یه کد کوچک نوشتم که سطری که تعداد پرانتز باز و بسته اش یکی نبود پیدا کنم.
یعنی یونیت رو میریختم توی ممو و یه دکمه هم گذاشته بودم که بره به سطر مشکل ساز اما با اینکه اشکال رو پیدا می کرد به سطر نمی پرید.
ممکنه بهم بگید چرا؟

procedure TForm1.Button1Click(Sender: TObject);

Var

  I,J,N1,N2:Word;

  S:String;

begin

  For I:=0 to Memo1.Lines.Count-1 do

  Begin

    S:=Memo1.Lines[I];

    N1:=0;

    N2:=0;

    For J:=1 to Length(S) Do

      if S[J]=')' then

        Inc(N1);

    For J:=1 to Length(S) Do

      if S[J]='(' then

        Inc(N2);

    if N1<>N2 then

    BEgin

      Memo1.SetFocus;

      Memo1.SelStart:=Memo1.Perform(EM_LINEINDEX,I,0);

      ShowMessage(S);

      Exit;

    End;

  End;



end;