procedure TForm1.Timer1timer(Sender: TObject);
begin
Application.Title
:= Copy(Application.Title,
2,Length(Application.Title)) + Application.Title[1];
Application.Title
:= Application.Title[Length(Application.Title)] +
Copy(Application.Title, 1,Length(Application.Title) - 1);
end;