이 정도면 원하는 결과가 충분히 나올수 있을것 같습니다.

우선 panel을 한 놓으시고..
리치 에디터를 판넬 위에다가 올리시고..

procedure TForm2.Button3Click(Sender: TObject);
begin
  panel1.Enabled := Not panel1.Enabled;

//font 색깔은 적절하게 바꿔주셔도 되고..안바꾸셔도 되고..^^
{
  richedit2.SelectAll;
  richedit2.SelAttributes.Color := clSilver; // or clBlack;
  richedit2.SelStart := 0;
  richedit2.SelLength := 0;
}

end;

일케 한번 테스트해 보세요..^^

// UNDO 버퍼를 이용해서 트릭을 써봤습니다
// 하지만 undo 버퍼를 사용하므로 사용자가 Ctrl+Z 를 누르면
// 이상하게 되므로 아래 소스를 더 수정하셔야 합니다
// 그리고 selection 과 caret 이 보이는 문제도 수정하셔야 합니다
// 아마도 WM_SETFOCUS 와 WM_KILLFOCUS 메시지를 받아야 하므로 TRichEdit 를 상속받아
// RichEdit 콤포넌트를 하나 만들어 보세요

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    RichEdit1: TRichEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure RichEdit1SelectionChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  oldSelStart, oldSelLength: Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Tag := 1 - Memo1.Tag;

  if Memo1.Tag = 1 then
    Memo1.Enabled := False
  else
    Memo1.Enabled := True;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  RichEdit1.Tag := 1 - RichEdit1.Tag;

  if RichEdit1.Tag = 1 then // Enabled := False
  begin
    oldSelStart  := RichEdit1.SelStart;
    oldSelLength := RichEdit1.SelLength;
    RichEdit1.ReadOnly := True;
    RichEdit1.SelectAll;
    RichEdit1.SelAttributes.color := clInactiveCaption;
    RichEdit1.SelLength := 0;
    HideCaret(RichEdit1.Handle);
  end
  else // Enabled := True
  begin
    RichEdit1.ReadOnly := False;
    SendMessage(RichEdit1.Handle, EM_UNDO, 0, 0);
    RichEdit1.SelStart  := oldSelStart; // 이전 위치 복원
    RichEdit1.SelLength := oldSelLength;
    ShowCaret(RichEdit1.Handle);
  end;
end;

procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
begin
  if RichEdit1.Tag = 1 then
    HideCaret(RichEdit1.Handle);
end;

end.