TMemo는 라인별로 색깔을 지정할 수 있는 기능이 없습니다.

RichEdit를 쓰세요.

linuxman 님이 쓰신 글 :
: 간단한 문제인것 같은데... 안될것 같기도 하고?
:
:
: DWORD memocol[] = {   clBlue , clLime , clBlack   };
: colindex = 0;
: ....
:
: 메모장에 무엇인가가 계속 추가 된다고 가정할때...
:
: 메모장에 10라인이 추가되었을때마다... 메모장에 찍히는 글자의 색깔을
: 10라인 마다 바꾸려하는데...
: 예를 들면 최초 10라인 ==> Blue
: 그다음 10라인 , clLime
: 그다음 10라인을 , clBlack  으로 돌아가면서 찍으려하는데...
:
: 아래처럼 코딩하면..
: 메모장의 색깔이 한번은 Blue, 한번은  clLime , 한번은 clBlack으로 온통 바뀌어 버리는데...
: 10 라인 , 10라인 , 10라인씩 다른 색깔로 바뀌어 가며 찍을 수 있는 방법은 없나요?
:
:
: void __fastcall TForm:: AddtoMemo ()
: {
:
: if ((Memo1->Lines->Count % 10)  == 0 )
:  {
:          Memo1->Font->Color = memocol[colindex++] ; <<==여기서 10라인이 추가 되었을때마 색깔을 바꿔주려하
:                                                             //는데... 왜 색깔이 안바뀌는지 알수가 없습니다..
:          if ( colindex == 4 ) colindex = 0;
:  }
:   Memo1->Lines->Add(msg);
: }