Назначение цвета и парсинг текста, RichEdit

[JoLan]

Здравствуйте. Есть такая строка:
"^ffcb4aТекст1 \r^ffffffТекст2 \r \r^ffcb4aТекст3 \r^ffffffТекст4 ^00ffffТекст5 \r^ffffffТекст6 ^00ffffТекст7",
в которой "^" означает смену цвета текста, а "\r" перенос строки.

В итоге должно получиться такое:

Текст1
Текст2

Текст3
Текст4 Текст5
Текст6 Текст7

Если с переносом более-менее понятно:

  while Pos('\r',s) <> 0 do begin
    p1 := Pos('\r',s);
    Delete(s,p1,2);
    Insert(#13#10,s,p1);
  end;

То с цветом не пойму как работать.