Вставка текста в memo

[Revan]

Помогите с маленькой проблемкой

вот код:

procedure TForm1.php1Click(Sender: TObject);
begin
memo1.Lines.Add('<?php ?>');
end;

end.

Мне нужно чтобы текст добавлялся в memo не в конец а в ту позицию где стоит курсор.
Заранее благодарен!

[Greblin]

Memo1.SelText := '<?php ?>';

[Revan]

Хм... Не думал что это так просто, спасибо!