[Qwed86]

Через попу сделал

Код:

var r: LongInt;
r := dbmemo1.Perform(messages.EM_POSFROMCHAR, dbmemo1.selstart, 0);
if key=vk_control then PopupMenu1.Popup(Editrecordform.Left+loWord(r)+23,
                                        Editrecordform.Top+hiWord(r)+237);

Именно к мемо че то не клеется, а вот к форме нормал. Прилепил к форме и по пикселям подогнал к месторасположению на ней мемо.