Problem with TRichEdit changing font of SelText

Hi,

What I am trying to do is to create "telnet screen" in delphi which supports ansi color codes (ESC-31m etc). Font of the component is set to Courier with fixed pitch.

What I have done is to make a descendant class from TRichEdit and I am displaying text on that with such code:

procedure TCTScreen.SetSisendRida(SisendString: String);
var l:integer;
    v2rv, tekst: String;
begin
  //add new input to the current buffer (yes, it should be stream .p)
  FInputString:=FInputString+SisendString;

  //show only full lines
  if (Length(FInputString)>0) and (FInputString[length(FInputString)] in [#10, #13]) then
  Begin
    //move to the end of current text
    SelStart:=GetTextLen;
    //reset tekst, this variable will contain the current line to show
    tekst:='';

    while Length(FInputString) > 0 do
    Begin
      //for escape code..
      if FInputString[1]=#27 then
      Begin
        l:=1;
        v2rv:='';
        //basically, collecting the color code from line
        repeat
          inc(l);
          v2rv:=v2rv+FInputString[l+1];
        until (IsAlpha(FInputString[l])=True) or (l=6);
        Delete(FInputString,1,l+1);
        //dump collected text as selection to screen
        SelText:=tekst;
        //change color of text based on color code
        SelAttributes.Color:=(Ansi_V2rv(v2rv));
        //empty collector string
        tekst:='';
      End;
      //basically skip down to next color code and dump the full lines to screen meanwhile
      if length(FInputString)>0 then
      Begin
        if FInputString[1]<>#27 then
        Begin
          if FInputString[1]<>#10 then
          Begin
            tekst:=tekst+FInputString[1];
            if FInputString[1]=#13 then
            Begin
              SelStart:=GetTextLen;
              SelText:=tekst;
              SendMessage(Handle,WM_VSCROLL,SB_BOTTOM,0);
              tekst:='';
            End;
          End;
          delete(FInputString,1,1);
        End;
      End;
    End;

    //dump the last part of input
    if (tekst<>'') and (tekst<>#$A) then
    Begin
      SelStart:=GetTextLen;
      SelText:=tekst;
    End;
  End;
end;



Anyway, the problem is that every time i change the selattributes.color, the font changes as well, at least it is not Courier anymore. I have tried to set Selattributes.Name and pitch without any effect.

So, if anyone could give me a hint of what i am doing wrong here, then it would be appreciated :)