Редактирование каждой строки

[V@mpir]

В общем ситуация такая, на форме должно быть три компонента: мемо(2) и батон. Нужно что бы в мемо1 пользователь вводил какую нибудь информацию
например 123456 следующая строка 2345678 и тд, при нажатии на батон в мемо2 должен отображаться результат вида например asdfg (здесь первая строка введенная юзером) ihfihhh, далее asdfg (здесь вторя строка введенная юзером) ihfihhh и тд. В общем каждая строка веденная юзером должна помещать в определенную "словесную рамку". Вот тут возникает проблема с реализацией, не как не могу сделать так, что бы все строки по-очередности помещались в эту рамку и на выходе я получал весь измененный список.

[Пепел Феникса]

procedure TForm1.Button1Click(Sender : TObject);
var i:integer;
begin
 Memo2.Lines.Clear;
 for i:=0 to Memo1.Lines.Count-1 do Memo2.Lines.Add(Memo1.Lines[i]);
end;

копирует все строки из Мемо1 в Мемо2
можете спокойно вставить тут обработку нужную

[FaTaL]

Что-то не понятно. У тебя каждый номер соответствует какой то букве?
Но вроде в твоём примере такого не наблюдается.

[V@mpir]

Вы не совсем меня поняли. Предположим у меня есть список
например

87.106.24.52
87.106.23.109
87.106.23.153
87.106.24.102

Я его вставляю в мемо1 затем жму и на выходе в мемо2 получаю

ip 87.106.24.52 country
ip 87.106.23.109 country
ip 87.106.23.153 country
ip 87.106.24.102 country
ip 87.106.24.107 country

Это, как пример. Разумеется, размер первоначальное списка может быть различным, да и вообще другим, но смысл думаю предать смог.

[Пепел Феникса]

procedure TForm1.Button1Click(Sender : TObject);
var i:integer;
begin
 Memo2.Lines.Clear;
 for i:=0 to Memo1.Lines.Count-1 do Memo2.Lines.Add('ip '+Memo1.Lines[i]+' country');
end;

я же сказал что вставить можно свою обработку строк(и сколько бы не было строк в мемо1, они все обработаются и попадут в мемо2