/hepimizin bildiği WinAmp uygulamasında olduğu gibi, projemizi çalıştırdığımızda
//Windows Görev Çubuğu'nda görünen uygulama butonunun üzerinde akan yazı görülür.

//AppTitle.pas dosyası
unit AppTitle;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
a: string;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval:= 250;
a:= 'Akan Yazı Deneme Uygulaması ... '+ '[ ' + Form1.Caption + ' ] ';
end;

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

end.

İşinizi görmesi dileğimle,
Çalışmalarınızda başarılar dilerim.