eigentlich ganz einfach...
Delphi-Quellcode:
P:=Pos('Programm',S);
while P>0 do
begin
RichEdit.SelStart:=P;
RichEdit.SelLength:=Length('Programm');
RichEdit.SelAttributes.Style:=[fsBold];
P:=PosEx('Programm',S,P+1);
end;
RichEdit.SelLength:=0;
wenn du nun die Statischen Teile ('Programm') in ein Array schreibst kannst du das alles in einer Schleife abarbeiten...
Edit:
Das "SelAttributes" kannst du natürlich auch in ein Array hauen....