Thunderbird

[danten]

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.