Multicolor Multilayer TMemo

Question

Can I configure Multicolor Multiline TMemo in Delphi XE2? .
When I write codes like:

procedure TForm1.BitBtn1Click(Sender: TObject); var FirstVariuble, SecondVarible, ThirdVarible :BOOL; begin if FirstVariuble = true then begin Memo1.Font.Color := clGreen; Memo1.Lines.Add('FirstVariuble = True'); end else if SecondVarible = true then begin Memo1.Font.Color := clBlue; Memo1.Lines.Add('SecondVarible = True'); end else begin Memo1.Font.Color := clRed; Memo1.Lines.Add('ThirdVarible = True'); end; end; 

the font color for all pre-existing lines changes according to the condition of the variables.

Answer 1

No, It is Immpossible. But instead, you can use the RICHEDIT control, such as the TRichEdit wrapper.

 RichEdit1.SelAttributes.Color := clGreen; RichEdit1.Lines.Add('First line.'); RichEdit1.SelAttributes.Color := clBlue; RichEdit1.Lines.Add('Second line.'); RichEdit1.SelAttributes.Color := clRed; RichEdit1.Lines.Add('Third line.');