вынесение и вставка из строки в free pascal

[kudzey]

собственно в чём заключается проблема, есть строка с текстом из которой нужно вынести к примеру первое слово. для этого я использую вот такой код

procedure TForm1.ListBox1Click(Sender: TObject);
begin
  Edit1.Text := Trim(ExtractWord(1, ListBox1.Items[ListBox1.ItemIndex], [';',' ','.',',']));
end;

далее мне нужно вернуть изменённую часть строки в то же место откуда она была взята. буду очень благодарен за помощь.

[Poma][a]

Используйте ExtractSubstr.. Тогда получите позицию, где заканчивается слово.. Затем удалете все от одной позиции до другой и вставляете видоизменнное слово..
Или можно нечто похожее с ExtractWordPos

[kudzey]

не могли бы вы дать фрагмент кода с использованием данного метода?

[Poma][a]

uses StrUtils;

var
	s, substr : string;
	k : LongInt;
begin
	s := 'programmersforum is the best forum';
	k := Length('programmers')+1;
	substr := ' ' + ExtractSubstr(s, k, StdWordDelims);
	s := Copy(s, 1, k-Length(substr)-1)+substr+Copy(s, k-1, Length(s));
	WriteLn(s)
end.