البحث في عنصر RichtEdit

[DJAMELCOLLO]

السلام عليكم
أحاول صنع برنامج يقوم بالبحث عن كلمة موجودة في نص معين واستعنت بذلك بالعناصر التالية:
RichEdit و Button و Edit.text
البرنامج اشتغل ولكن عندما اظغطك على الزر لا يحدث شيى
وهذا كود البرنامج:

كود :

procedure TForm4.Button1Click(Sender: TObject); var i,l:integer; s: string; begin s:=edit1.Text; l:=Length(edit1.text); i:= RichEdit1.FindText(s,0,l,[]); if i>0 then begin RichEdit1.SetFocus; RichEdit1.SelStart := i; RichEdit1.SelLength := length(s) ; RichEdit1.SelAttributes.Color:=clred; end; end; end.

عوض l ب: ; ( l:=length(richedit1.text