>>285

元になるricheditのonkeyupイベントに次のような処理を書く。

procedure TForm1.RichEdit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
　if Key = 13 then RichEdit2.Lines := RichEdit1.Lines;
end;