Forms Delphi

Title: How to make a forms caption scrolling
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:=1to(Length(a)-1)do
a[i]:=Application.Title[i+1];
a[Length(a)]:=Application.Title[1];
end;