Работа с Richedit

[vitamin.rulez]

У меня задача клавиатурный тренажер, текст задания находиться у меня в Richedit как можно или вообще можно сделать так чтобы набранные символы были одного цвета, текущая 2-ого, и последующие 3-его цвета.
Если так нельзя то хотябы как сделать так чтобы передвигася указатель

[Stilet]

Если на скорую руку то примерно так:

procedure TForm1.RichEdit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:integer;
begin
 if IsCharAlphaNumeric(chr(key)) then key:=0 else begin
   s:=RichEdit1.Text;
   i:=(RichEdit1.CaretPos.Y+1)*RichEdit1.CaretPos.X;
   s:=copy(s,i,1);
   RichEdit1.SelStart:=i+1;
   RichEdit1.SelLength:=1;
   RichEdit1.SelAttributes.Color:=clBlue;
   RichEdit1.SelLength:=0;
   RichEdit1.SelStart:=i;
   RichEdit1.SelLength:=1;
   RichEdit1.SelAttributes.Color:=clRed;
   RichEdit1.SelLength:=0;
   caption:=inttostr(i);
 end;
end;

Здесь передвигаясь стрелочками на клаве можно увидеть подсветку

[Arigato]

А может можно обойтись вообще без RichEdit и выводить текст вручную?
Вот, как-то писал что-то подобное: http://www.programmersforum.ru/showthread.php?t=24650
Бегущая строка рисуется прямо по канве.