var 
  a: string; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  a := 'Look at here !...'; 
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
var  
  i: Integer; 
begin 
  Application.Title := a; 
  Form1.Caption     := a; 
  for i := 1 to (Length(a) - 1) do 
    a[i] := Application.Title[i + 1]; 
  a[Length(a)] := Application.Title[1]; 
end;