Achso! Ich dachte da steht nur das drin zu den Nicks.
Vorher müsstest du also die Zeile mit "353" am Anfang suchen und dann den obigen Code ausführen:
Delphi-Quellcode:
for i := 0 to Memo.Lines.Count - 1 do
if Copy(Memo.Lines[i]) = '353' then
GenerateNicks(Memo.Lines[i]);
Und GenerateNicks führt dann "meinen" Code aus, wobei der Übergabeparameter dann durchsucht wird (also die aktuelle Zeile). Außerdem kannst du dir dann das mit LineEnd sparen, da du ja nur eine Zeile hast. Dann ist LineEnd = Length(Memo.Lines[i])
MfG
xZise