I have it almost done.
I need only add a piece of code.
Something like:
Delphi-Quellcode:
for i := 0 to Memo1.Lines.Count - 1 do
begin
if Memo1.Lines.Text <> '@' then
begin
????????? Memo1.Lines[i] =>> Copy Memo2.Lines ????????????
If you can find on line and found the @ character to copy the line Memo2
Once that is functional, I put all the code here.