1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

procedure SetAttributes;
const  suchwort : Array[1..2] of String = ('e','a');  // die gesuchten Wörter
var   i: integer;  // Laufvariable 'i'
      text: string; 
begin

 for i := 0 to Form1.richedit.GetTextLen-1 do // von vorne bis hinten..
  begin
   text := copy(Form1.richedit.Text,i+1,1);  // Zeichen für Zeichen in "Text" kopieren
   if (text = suchwort[1]) or (text = suchwort[2]) then // anschließend vergleichen
    begin
      with Form1.richedit do // falls gleich, dann Attribute anpassen
       begin
        SetFocus;
        SelStart := i;
        SelLength := 1;
        SelAttributes.Style := [fsbold];
         continue; // und Schleife weiter durchlaufen
       end;
    end;
  end;
 end;

{******* Aufruf von SetAttributes *******}
procedure TForm1.Button1Click(Sender: TObject);
var id: DWord;
begin
 CreateThread(nil,0,@SetAttributes,nil,0,id); // SetAttributes bekommt einen eigenen Thread
end;					

1:

RichEdit1.SetAttributes := [fsBold]					

1:

RichEdit1.SelAttributes.Style := [fsBold];