склеить текст в memo

[mitiay]

Подскажите как склеить текст в двух мемо по первым символам
в первом мемо есть LK-12430.........(начало строки), во тором есть LK-12430, тоесть надо склеить эту строку и вывести результат в мемо3

[aknyazev]

Ну, например, как-то так:

//...
I1,I2 : integer;
//...
// Вот индексы начала нужных строк в каждом мемо:
I1 := pos('LK-12430',Memo1.Lines.Text);
I2 := pos('LK-12430',Memo2.Lines.Text);
// Вот собственно  склеивание:
Memo3.Lines.Text := copy(Memo1.Lines.Text,I1,length(Memo1.Lines.Text)-I1+1) +
  copy(Memo2.Lines.Text,I2,length(Memo2.Lines.Text)-I2+1);