Автоматический переход на новую строку в Мемо

[Utkin]

В своем компоненте замутил всплывающий список по типу как в Делфи - нажимаешь определенную комбинацию клавиш и появляется ListBox для выбора. Однако во время его появления Мемо автоматически выделяет ему пустую строку, что не есть хорошо. Собственно как этого избежать?
ЗЫ. Родителем ЛистБокса является мой Мемо.

procedure THMemo.ShowMetods();
begin

    Mets.Left:=(CaretPos.x)*Font.Size+5;
    Mets.Top:=(CaretPos.y)*Font.Size+5;
    Mets.Visible:=True;
    Mets.Show;
    Mets.SetFocus();
end;
////////////////////////////////////////////////////////////////////////////////

[Stilet]

Мемо автоматически выделяет ему пустую строку

Всмысле? Как ты в Списке поиск делаешь?

[Utkin]

procedure THMemo.InsertMetod();
var
    Text: String;
    x, y: Integer;
begin

    // Äàííûå èìåþòñÿ?
    If Mets.Items.Count<1 then Mets.Items.Add('');
    Mets.ItemIndex:=0;
    
    // Ïîëó÷èì äàííûå
    Text:=Mets.Items[Mets.itemIndex];
    Text:=FOnInsMetod(Self, Text);

    // Âñòàâèì äàííûå â òåêñò Ìåìî
    x:=CaretPos.X;
    Lines.Delete(y);
    Lines.Delete(y);
    y:=CaretPos.Y;

    Lines.Strings[y]:=Text+Copy(Lines.Strings[y], x+1, Length(Lines.Strings[y])-x);
    Lines.Strings[y-1]:=Lines.Strings[y-1]+Lines.Strings[y];
    Lines.Delete(y);

    // Cïðÿ÷åì Ñïèñîê âñòðîåííûõ ìåòîäîâ
    Mets.Hide;

    // Óñòàíîâèì ôîêóñ íà îêíå ðåäàêòèðîâàíèÿ òåêñòà
    SetFocus;
end;
////////////////////////////////////////////////////////////////////////////////

Махинации с Lines.Delete(y); направлены на то, чтобы убирать этот разрыв, но когда список только появляется, все равно видно, что строка рвется на три части
Например: привет Вася. Если вставить из ЛистБокса то появится три строчки вместо одной.
FOnInsMetod - событие, возникает, когда пользователь вставляет строку из списка. Цель дописывать всякие там скобки и параметры (либо вообще дописывать что-то другое).

[Stilet]

Если вставить из ЛистБокса то появится три строчки вместо одной.

Если дело только в этом то после выбора в ЛистБоксе пусть код:

Memo1.Lines.SelText:=ListBox1.items[ListBox1.ItemIndex];

Или я тебя не понял )

[Utkin]

Он пишет, что так нельзя .
Я внутри компонента это делаю, там нельзя Lines.SelText:=ListBox1.items[ListBox1.ItemIndex];

По бреакпоинтам лишняя строка появляется раньше, я так понял в момент отображения ЛистБокса, а не в момент вставки текста.

ЗЫ. Хотел запретить перерисовку компонента, но тогда и ЛистБокс тоже не отображается...

[Stilet]

Знаешь, друже, мне так трудно сказать где косяк, не вида кода, не щупая его за буфера )

[Utkin]

Вот мой исходничек, остались сущие мелочи, добавить описание и можно выкладывать в массы .

[Stilet]

А работать с ним как чтоб нарваться на ту ошибку что тя достала?

[Utkin]

Ну Контрол М .
Или имя_компонента.ShowMetods();

[Stilet]

Ну Контрол М

Ну а как список этих самых методов заполнить то?
Если я просто жмакну ^M у меня вывалится пустой список.