TKMemo: How do I copy to clipboard?

[RedOctober]

I can find no function to copy selected text or full text to clipboard.  Searching on Google, I find only pages that say this is possible, but no code snippets.  How is this done?  Thanks in advance for any help you can provide.
Platform:  Lazarus 1.8.1, FPC 3.0.5, KControls 1.7.1

[wp]

A brief look at the KMemo sources shows that it really is able to copy to the clipboard, but the procedure ("DoCopy") is protected. So, since protected methods can be acessed from derived classes you can do this trick:

Code: Pascal  [Select][+][-]

1. type
2.   TMyKMemo = class(TKMemo);
3.  
4. procedure TForm1.Button1Click(Sender: TObject);
5. begin
6.   TMyKMemo(KMemo1).DoCopy;
7. end;

[RedOctober]

Perfect!  Thank you wp.