Copy text to TMemo

Hello

If I select multiple lines of text with the mouse from a WPRichEdit component, how can I capture (in code) the selected text and place in into a simple TMemo component

TIA

John

Memo.Text := WPRichText.AsANSIString('ANSI', true)