Example:
This example came from Greg Liefs "TOGGLING INSERT/OVERSTRIKE MODE IN A MEMO".

if not InsertMode then begin
        Memo1.SelLength := 1 ;
        Memo1.CutToClipboard ;
     end ;