Delphi-Quellcode:
...try
x := TStringList.Create;
Memo1.Lines.Add(copy(pos(' ',x.CommaText('test test2 test3 test4')),(pos(x.CommaText('test test2 test3 test4')))+5,x.CommaText('test test2 test3 test4')));
...
Mit pos bekommst du die Stelle an der sich das gesuchte Zeichen befindet, mit copy kannst du eine bestimmte stelle aus dem String rauskopieren.