Memo1.SelText := '可以加字符串';

就是如此简单