Wenn du die E-Mail-Adressen in nem Memo stehen hast, sollte vollgendes gehen.
Delphi-Quellcode:
for i := 0 to Memo1.Lines.Count - 1 do
begin
Memo1.Lines.Strings[i] := 'blacklist_from ' + Memo1.Lines.Strings[i];
end;
Wenn du die E-Mail-Adressen hintereinander stehen hast, solltest du mit POS auf ein freizeichen Testen und mit Copy die Einzellnen Strings extrahieren und ergänzen.