Как создать анимированный заголовок на Панели задач

Вот как можно создать анимацию кнопки Вашего приложения на Панели задач:

• Поместите TTimer на форму.
• Запишите следующий код в событии OnTimer:

procedure TForm1.Timer1Timer(Sender: TObject);
const
  {$J+}
  animatedTitle: string = 'Приложение выполняет работу, подождите!';
  {$J+}
var
  i: integer;
begin
  Application.Title:= animatedTitle;
  for i:= 1 to (length(animatedTitle) - 1) do
    animatedTitle[i]:= Application.Title[i + 1];
  animatedTitle[Length(animatedTitle)]:= Application.Title[1];
end;

Чтобы включить или отключить анимацию, просто устанавливайте свойство Enabled таймера в True или False.