Text an Cursorposition einfügen

[Nalincah]

Wie kann ich in einem Memo Text an der aktuellen Cursorposition einfügen?

[Alexander]

    Memo1.SetSelTextBuf('TEST); ungetestet

[Nalincah]

Also wie du das geschrieben hat, klappt es. Nur so leider nicht

Memo1.SetSelTextBuf(' ' + TButton(Sender).Caption + ' '); und so auch nicht

Memo1.SetSelTextBuf(' ' + PChar(TButton(Sender).Caption) + ' '); Fehler:
[Fehler] uFrmDesignExpression.pas(96): Inkompatible Typen: 'String' und 'PChar'

[Mirilin]

MemoText.SelText := EditInsertText.Text;

[Alexander]

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

[Nalincah]

Danke....Klappt!!