delphi - マルチカラー マルチライン TMemo

Question

Delphi XE2 で Multicolor Multiline TMemo を構成することは可能ですか? .
次のようなコードを書いているとき：

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

以前に存在したすべての行のフォントの色は、変数の状態に応じて変更されています。