Text an Cursorposition einfügen

[Alexander]

  Memo1.SetSelTextBuf(PChar(' ' + TButton(Sender).Caption + ' '));