Удалить все слова до последнего пробела в строке

[Teror4uks]

Привет народ!

В задании нужно удалить все слова до последнего, разделены они естественно между собой пробелами, использую функцию DELETE и POS (для вычисления нахождения пробела), но он почему то удаляет всё до первого пробела, помогите кто знает как исправить.
Заранее спасибо

   target := ' ';
   o:= Edit1.Text;
   while Pos(target, o) > 0 do
     begin
        P := POS(Target,o);
        DELETE(o,P,Length(o));
     end;
     Edit2.Text := o;

[Аватар]

нужно удалить все слова до последнего

Стоит понимать до последнего слова?

  b:=False;
  for i:=Length(s) downto 1 do
    if s[i]<>' ' then b:=True
    else if b then begin s:=Copy(s,i+1,Length(s)); Break; end;

[Teror4uks]

Сообщение от Аватар

нужно удалить все слова до последнего

Стоит понимать до последнего слова?

  b:=False;
  for i:=Length(s) downto 1 do
    if s[i]<>' ' then b:=True
    else if b then begin s:=Copy(s,i+1,Length(s)); Break; end;

Да, спасибо большое!