Colocar um Uppercase em uma palavra encontrada.

Olá pessoal, tenho este rotina que negrita uma palavra ou frase em um RichEdit, gostaria de modificá-la, será que alguém pode me ajudar..... Estou precisando deixar a palavra encontrada em maiúsculo e colocar um fundo ( cor ) igual ao exemplo abaixo destacando a palavra fórum.DevMedia o maior FÓRUM da net.   Segue abaixo minha rotina.   var
posi:integer;
posf:integer;
begin
  posi:=0;
  posf:= RichEdit1.FindText(edit1.txt,posi,length(RichEdit1.Text),[]);
  while posF >= 0 do
    begin
      RichEdit1.SelStart:=posf;
      RichEdit1.SelLength:=Length(edit1.txt);      //Preparando para colocar em Negrito
      RichEdit1.SelStart:=posf;
      RichEdit1.SelLength:=Length(edit1.txt);
      //Colocando em Negrito
      RichEdit1.SelAttributes.Style:=[fsBold];       posi:=posf+length(edit1.txt)+1;
      posf:= RichEdit1.FindText(edit1.txt,posi,length(RichEdit1.Text),[]);
  end;
    Muito obrigado pessoal...