поиск в RichEdit

[Zver]

помогите плиз, бо я не очень шарю в Delphi)
есть функция, которая осуществляет поиск и выдиление определенного текста в RichEdit, всё в ней хорошо, но... она выделяет только одно(последние) из найденых слов(
Как сделать так, чтобы она выделяла все найденные слова?

function SearchForText_AndSelect(RichEdit: TRichEdit; SearchText: string): Boolean;
var
StartPos, Position, Endpos: Integer;
begin
StartPos := 0;
with RichEdit do
begin
Endpos := Length(RichEdit.Text);
Lines.BeginUpdate;
while FindText(SearchText, StartPos, Endpos, [stMatchCase])<>-1 do
begin
Endpos := Length(RichEdit.Text) - startpos;
Position := FindText(SearchText, StartPos, Endpos, [stMatchCase]);
Inc(StartPos, Length(SearchText));
SetFocus;
SelStart := Position;
SelLength := Length(SearchText);
end;
Lines.EndUpdate;
end;
end;

[ustas]

вооружайся книгами и справочной системой и вперед
вот можешь такое вот выделение бэкграунда использовать, как маркер в ворде

uses
RichEdit;
procedure RE_SetSelBgColor(RichEdit: TRichEdit; AColor: TColor);
var
Format: CHARFORMAT2;
begin
FillChar(Format, SizeOf(Format), 0);
with Format do
begin
cbSize := SizeOf(Format);
dwMask := CFM_BACKCOLOR;
crBackColor := AColor;
Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format));
end;
end;

[Marchello]

Сообщение от Zver

есть функция, которая осуществляет поиск и выдиление определенного текста в RichEdit, всё в ней хорошо, но... она выделяет только одно(последние) из найденых слов(
Как сделать так, чтобы она выделяла все найденные слова?

Пример случаем не с delphisources брал ?
Смотри, попробуй открыть там блокнот с текстом и попробуй выделить
несколько слов, наверное не выйдет. Так как выделить можно один цельный кусок (вот у тебя и выходит выделенное последнее слово).
Тебе наверное кроме выделения нужно поменять цвет текста - это более реально и наглядно.
То есть, когда у тебя есть выделенный кусок после:
SelStart := Position;
SelLength := Length(SearchText);
Там должно быть проперти типа SelAttributes
а у него есть Color. То есть так:

SelStart := Position;
SelLength := Length(SearchText);
SelAttributes.Color := someColor;

Так как при каждом новом SelStart := Position; - будет теряться
предыдущее выделение.

PS. А вот работает ли сам код поиска - я не знаю. Так стремно
написан... я еще и Делфи совсем забыл то.

[Zver]

SelAttributes.Color := someColor;

то что нужно! , спасибо ОГРОМНОЕ!!!!
ЗЫ код рабочий)