Поменять порядок следования слов на обратный

procedure TForm1.btn1Click(Sender: TObject);
var
  s,subS:string;
  P:Integer;
begin
  subS:='';
  s:='Привет от CheshireesCat';
  while Length(s)>0 do // по сути цикл бесконечен
    begin
      p:=Pos(' ',s); // находим пробел
      Insert(Copy(s,1,p),subS,1); //вставляем слово до пробела
      Delete(s,1,p);
      if p=0 then  //если не нашло пробел р будет равно 0 и тогда мы просто 
        begin
          Insert(s+' ',subS,1);  //вставляем последнее слово в начало строки 
          Break; //и выходим из цикла
        end;
      p:=0;
    end;
    ShowMessage(subS);
end;

var
list: TStrings;
i:Integer;
Text, tmp:string;
begin
Text :=Edit1.Text; //вводим исходное предложение
list :=TStringList.Create;
 tmp :=''; //для записи слов в обратном порядке
 list.Delimiter :=' ';  //разделитель - пробел
 list.DelimitedText :=Text; //разбиваем текст на слова
 for i :=list.Count-1 downto 0 do //в обратном цикле
 begin
 tmp :=tmp+list[i]+ list.Delimiter; //формируем новое предложение
 end;
   Edit2.Text :=tmp; //и выводим его
list.Free;
end;