Tfssyntaxmemo Когда определяем свою Popumenu

Konst

Исправте пожалуйста в своих исходниках.
procedure TfsSyntaxMemo.MouseDown(

вместо
if (Button = mbRight) and (PopupMenu = nil) then

if (Button = mbRight)then
begin
if (PopupMenu = nil) then
FPopUpMenu.Popup(Mouse.CursorPos.x, Mouse.CursorPos.y)
else if assigned(FPopupMenu) then
exit;
end

потому как без этого срабатывает следующий блок и выделенние исчезает.