zmiana pozycji tekstu

co zrobic gdy mam np. takie zdanie :'Jestem człowiekiem'
a następnie aby co sekunde z początku tekstu wyciąc pierwszą literę i wkleię ja na końcu

//Dopisane

Dzieki Vogel

var
  s: string;

// w OnCreate:

  s:='blablablabla';

// w OnTimer timera z Interval ustawionym na 1000:

var
  tmp: string;
begin
  tmp:=copy(s, 2, length(s) - 1) + s[1];
  s:=tmp;
  Application.Title:=s;
end;