请问如何通过点击按钮，在TMemo的当前光标处插入字符

Question

问题如上，请帮忙！

Answer 1

var
  Sel: Integer;
  Str, InsertStr: String;
begin
  InsertStr := 'Insert';
  Sel := Memo1.SelStart;
  Str := Copy(Memo1.Text, 1, Sel);
  Str := Str + InsertStr;
  Str := Str + Copy(Memo1.Text, Sel + 1, Length(Memo1.Text)
    - Memo1.SelStart);
  Memo1.Text := Str;
  Memo1.SetFocus;
  Memo1.SelStart := Sel + Length(InsertStr);
End

Answer 2

var
  str: string;
begin
  str := 'aaaa';
  Clipboard.AsText := str;      //uses Clipbrd
  SendMessage(Memo1.Handle, WM_PASTE, 0, 0);
end;