Una ayudita¿?

[Deito]

Ya gracias ya hice algunos practicos.... Alguien que me ayude... Como eliminar una palabra de una oración... yo use ese pero tiene una falla... si elijo una palabra del medio la elimina junto con todas las sgtes palabras...

procedure Cadena.delpal(sx: string);
var
I,l,IX,im:WORD;
begin
i:=1; l:=length(sx);
for i:= 1 to longitud do
begin
if siguientepalabra(i)=sx then
im:=i-l;
for iX:=im to i do
delchar(IX);
end;
end;