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

procedure TForm1.Button1Click(Sender: TObject);
var S: String;
    S1,S2, S3: String;
    i: Integer;
begin
  S := 'На дворе трава на траве дрова на дровах братва у братвы трава вся братва в дрова';
  S3 := S;
  for i := 1 to Length(S) do
    begin
      S1 := S1 + S[i];
      if S[i+1] = ' ' then
        Break;
    end;
  for i := Length(S) downto 1 do
    begin
      S2 := S2 + S[i];
      if S[i-1] = ' ' then
        Break;
    end;
    S2 := ReverseString(S2);
    Delete(S, 1, Pos(' ', S));
    Insert(S2+' ', S, 1);
    Delete(S, Length(S)-Length(S2), Length(S2)+1);
    Insert(' '+S1, S, Length(S)+Length(S1));
    ShowMessage('Исходная строка - "'+S3+'"'+#13#13#10+'Переставленая строка - "'+S+'"');
end;

procedure TForm1.Button2Click(Sender: TObject);
var d:TStringList; s:string;
begin
  // исходная строка
  s:='На дворе трава на траве дрова на дровах братва у братвы трава вся братва в дрова';
  d:=TStringList.Create;
  d.Delimiter:=' ';
  d.DelimitedText:=s;
  s:=d[0];
  d[0]:=d[d.Count-1];
  d[d.Count-1]:=s;
  s:=d.DelimitedText;
  d.Free;
  ShowMessage(s);
end;