schau mal ob irgendwo ein klammerfehler... nagut ich zieh es auseinander.
Delphi-Quellcode:
ding: integer
dong: string;
...try
x := TStringList.Create;
ding := pos(' ',x.CommaText('test test2 test3 test4')
dong := copy(x.CommaText('test test2 test3 test4'),ding,ding+5)
Memo1.Lines.Add(dong);
...