delphi 复制微信多行聊天记录粘贴memo组件格式被破坏解决方法

解决办法：
uses Clipbrd;

Memo1.PasteFromClipboard; // 这个方式粘贴则会破坏原格式
Memo1.Lines.SetText(PWideChar( Clipboard.AsText)); //这个方式粘贴则不会破坏原格式