Scroll Application Title on TaskBar with Delphi

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;