[Drozh]

Незнаю насколько это корректно и правильно ли я понял вопрос...

Код:

 PosBeg := Pos(' ', sl.Strings[i]); // первый пробел
 PosEnd := LastDelimiter(' ', sl.Strings[i]); // последний пробел
 Copy(sl.Strings[i], 1, PosBeg-1); // Привет
 Copy(sl.Strings[i], PosBeg+1, PosEnd-PosBeg-1); // Я
 Copy(sl.Strings[i], PosEnd+1, Length(Str)); // ВАСЯ