رنگی کردن عبارتی مثلا علی در Richedit1 در دلفی 2009

[yosefyosef]

رنگی کردن عبارتی مثلا علی که در Richedit1 هست که در edit1 نوشته شده است
در دلفی 2009
من سابقا در دلفی 7 از این دستور استفاده می کردم وجواب می داد اما در دلفی 2009 جواب نداد
اگر دوستان روش دیگری دارند بیان کنند با تشکر
دستور
var i1,j1,firstsearch:Integer;
begin

i1:=1;
firstsearch:=posEx(Edit1.text,RichEdit2.Text,i1+1) ;
while i1>0 do
begin
i1:=posEx(Edit1.text,RichEdit2.Text,i1+1);
j1:=length(Edit1.text);
RichEdit2.SelStart:=i1-1;
RichEdit2.SelLength:=j1;
RichEdit2.SelAttributes.Color:=clBlue;
end;
RichEdit2.SelStart:= firstsearch;
SendMessage(RichEdit2.Handle, EM_SCROLLCARET, 0, 0);

[Felony]

1- از تگ کد برای قرار دادن کدهاتون استفاده کنید .
2- این هم یک نمونه :

var
StartPos,ToEnd,a:integer;
begin
While a<>-1 do
begin
if RichEdit1.SelLength <> 0 then
StartPos := RichEdit1.SelStart + RichEdit1.SelLength
else
StartPos :=0;
ToEnd := Length(RichEdit1.Text) - StartPos;
a:=RichEdit1.FindText(Edit1.text,StartPos,ToEnd,[]);
if a<> -1 then
begin
RichEdit1.SelStart := a;
RichEdit1.SelLength :=Length(Edit1.text);
RichEdit1.SelAttributes.Color := clred;
end;
end;
end;