Удалить слово из середины строки

[ЛюсиЛью]

Подскажите, пожалуйста, как удалить слово между четвертым и пятым пробелом в делфи

[apromix]

Тривиально, даж код не буду писать

Вот алгоритм:
1. Разбиваешь по пробелах строку и слова заносишь в строковый массив.
2. Затем в массиве удаляешь нужное слово.
3. Собираешь все слова в одну строку, добавляя после каждого слова (ну кроме последнего) пробел.

Жду код, потом будем править вместе

[ЛюсиЛью]

unit Unit1;
interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
 Dialogs, XPMan, StdCtrls;
type
 TForm1 = class(TForm)
 Label1: TLabel;
 Edit1: TEdit;
 Button1: TButton;
 XPManifest1: TXPManifest;
 Label2: TLabel;
 Edit2: TEdit;
 procedure Button1Click(Sender: TObject);
 private
 { Private declarations }
 public
 { Public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
i,d:integer;
begin
s:=Edit1.Text;
d:=length(s);
for i:=d downto 1 do
 if s[i]=' ' then
 begin
 delete(s,i,(d-i+1));
 break;
 end;
 Edit2.Text:=s;
end;
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

Вот, что получилось, но удаляется последнее слово(( Не пойму как написать, именно 4 и 5 пробел(

[p51x]

Искать не с конца, а с начала. Завести счетчик и считать пробелы.

[Аватар]

А если слова не одним пробелом разделены? Какое слово удалится в строке:

1--2---3

для наглядности тире вместо пробела)

[p51x]

Предпочитаю в таких случая следовать строго ТЗ. Написано - искать слово между 4 и 5 пробелом, и его удалять - ищем и удаляем.
Случаев и я могу накидать, например, таб считать пробельным? а число считать за слово? а если строка полностью из пробелов?..

[apromix]

Можно предверительно удалять лишние пробелы. Но в условиях задачи этого нет. Ждем поправленого кода

[Аватар]

Случаев и я могу накидать

Та то ж для расширения кругозора ТС как бы, а не для p51x )