Перенос текста с Edit и DBEdit на RichEdit

[sislexa]

У меня такая проблема не пойму как указать место для появления на компоненте RichEdit текста с компонентов Edit и DBEdit .С помощь кнопки осуществляется перенос текста с компонентов Edit и DBEdit на компонент RichEdit .Но переносится текст в начало формы а не туда куда мне нужно . Подскажите как указать место для появления. Заранее благодарен за ответы! вот мой код

frm1.redt1.Lines.Add(frm2.edt1.Text);
frm1.redt1.Lines.Add(frm2.edt6.Text);
frm1.redt1.Lines.Add(frm2.dbedt1.Text);

[Прик]

  I := Pos('от__', RichEdit1.Lines.Text); //находим место вставки (I : Integer)
  if I > 0 then begin    //если нашли
    RichEdit1.SelStart := I;  //курсор сдвигаем к месту вставки
    //вставляем текст из компонентов
    RichEdit1.SetSelTextBuf(PChar(edt1.Text+#13#10));
    RichEdit1.SetSelTextBuf(PChar(edt6.Text+#13#10));
    RichEdit1.SetSelTextBuf(PChar(dbedt1.Text));
  end;

Символы #13#10 добавляются, если нужно чтобы вставка из контролов была на разных строках, иначе добавляется какой-нибудь символ-разделитель (пробел, например).

То sislexa
А слабо хотя бы раз заглянуть в штатный хэлп ?
Или скачать с нашего сайта книжку "100 компонентов Дельфи" ?
У нас тут не ликбез...
Модератор

[sislexa]

всё сделал как вы сказали .только он почемуто стал переносить текст в серидину слова (тоисть между буквами О и т

[Прик]

Значение I в выражении RichEdit1.SelStart := I; может быть каким угодно. Сдвигайте курсор, на здоровье, в любое место текста. Например, I := I + 1 или

RichEdit1.SelStart := I+1;

[sislexa]

а как настроить отображения текста из Editов друг под другом. У меня имеются пункты товар количество и цена и нужно чтоб они отображались в столбик друг на против друга .прим хлеб-3-45 вверху над ними будут пункты товар-количество-цена.Огромное вам спасибо за помощь!