Как вставить текст в позиции курсора в TMemo?

[Andreich]

На форме имеется компонент типа TMemo, требуется по нажатию на кнопку вставлять некоторый текст в позицию курсора.
Как это можно реализовать в Lazarus?

[ViTality]

также как в дельфи. какието мягко говоря глупые вопросы задаешь.

Код: Выделить всё

procedure TForm1.Button1Click(Sender: TObject);
begin
  memo1.SelText:='Т_Е_К_С_Т';
end; 

[Andreich]

глупые вопросы задаешь

Всего лишь спросил то, чего не знал,... В любом случае, спасибо за ответ!