試試在RichEdit的DblClick事件中
Procedure TForm1.RichEdit1DblClick(Sender: TObject);
Begin
  If Not Assigned(Form2) Then // Form2 即所謂的全螢幕RichEdit
    Form2 := TForm2.Create(Application); //不存在則建立它
 //交給Form2的RichEdit處理
  Form2.RichEdit1.Lines.Assign(TRichEdit(Sender).Lines);
  If Form2.ShowModal=mrOK Then Begin // 確定
    // 從Form2的RichEdit取回內容
    TRichEdit(Sender).Lines.Assign(Form2.RichEdit1.Lines);
  End;
End;