کار نکردن کد پرش به سطر و پرش به موقعیت در ریچ ادیت

[mbshareat]

سلام علیکم
من یک کد برای جستجوی عبارت در ریچ ادیت دارم که برای پرهیز از توضیح ساده اش می کنم:

  P:=PosEx(S,Richedit1.Text,Richedit1.SelStart+1);

  If P=0 then

    Exit;

  Richedit1.SelStart:= P;

  //Richedit1.SelLength:= Length(S);

  PostMessage(Richedit1.Handle, EM_LINEFROMCHAR, 0,RichEdit1.SelStart);

  Application.ProcessMessages;

  Richedit1.SetFocus;

این کد، فقط بار اول سطر حاوی S رو نشون میده
یک کد دیگه دارم که برای پرش به سطر هست که اصلا کار نمی کنه:

  Form1.RichEdit1.Perform(EM_LINEINDEX,0, 12);

کسی میتونه کدی که همیشه درست کار کنه بهم بده؟ نمی دونم چرا ریچ ادیت اینقدر عجیبه.