функция для перемещения символов в строке delphi

[SonicBob]

есть такая строка ххуу
надо получить уухх
пытаюсь написать для этого функцию, думал сделать через копирования куска и вставки его в конец строки но у меня нет разделителей по которым я могу ориентироваться, знаю лишь что в строке 4 символа и первые 2 надо переместить в конец
по этому попытался сделать такое

function ReplaceWords(S : String) : String;
var
t:string;
begin
s:='';
t:=Copy(s, 1, 2);
Insert(t,s, 4);
Delete(s, 1, 2);
end;

и конечно же ничего не работает ) стирает всю строку, что я не так делаю?

[Mad_Cat]

s:=s+copy(s,1,2);delete(s,1,2);result:=s;