Выделение слова в строке жирным в RichEdit

[FleXik]

Здравствуйте, у меня проблема. В каждой строке RichEdit1 есть слово "Баланс:", мне нужно чтобы при добавлении строк в RichEdit1, слово "Баланс:" в каждой строке выделялось жирным (fsBold). Спасибо.

[Прик]

Не до конца определено задание.
Какие действия предпринимать:
- если в строке будет более одного слова "баланс"?
- если в строке будет слово, где корень тоже "баланс" (например, сбалансирован).

Если по простому (выделять одно слово в строке) то можно так:

type
  TForm1 = class(TForm)
    RE: TRichEdit;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
  private
    procedure AddString(S : string);
  public
  end;
...
procedure TForm1.AddString(S: string);
var
  I : Integer;
begin
  RE.Lines.Add(S);
  I := Pos('БАЛАНС', AnsiUpperCase(RE.Lines[RE.Lines.Count-1]));
  if I > 0 then begin
    //установка курсора на начало слова "баланс" в добавленной строке
    RE.SelStart := Length(RE.Lines.Text) - Length(RE.Lines[RE.Lines.Count-1]) + I - 3;
    RE.SelLength := 6; //кол-во букв в слове "баланс"
    RE.SelAttributes.Style := [fsBold]; 
    RE.SelLength := 0;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  AddString('Строка, где есть слово баланс, сбалансирована');
  ActiveControl := RE
end;