Ayuda en Text Scroll

[ColdFusion]

Hola muy buenas de nuevo quisiera que alguien me ayude a crear lo siguiente:
Estoy creando una pequeña aplicacion que mande un texto al msn es decir que muestre lo que uno esta escuchando y quiero mandar lo en forma de scroll, osea que los demas vean lo que escucho en scroll para tenga un mejor aspecto.. pero no puedo!! uso esta forma

n:integer;

if n>=length(label2.caption) then begin
n:=1;
end;
label2.caption:=label2.caption+copy(label2.caption,n,1);
self.Caption:= 'App '+ label2.caption;
n:=n+1;

pero no produce scroll en el caption, si no que va creciendo y no quiero que cresca si no que tenga un tamaño estable y que se vea con scroll