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

[Neftali [Germán.Estévez]]

No acabo de entender muy bien lo que quieres, pero puedes probar a añadir saltos de carro cada vez que añades algo...

Código Delphi [-]
  label2.caption:=label2.caption + #10 + #13 + copy(label2.caption,n,1);

[Lester]

Hola, yo tampoco entiendo mucho a lo que te estás refiriendo, pero si quieres un scroll en la barra de título de tu aplicación, lo que deberías hacer es esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
begin
 i := 0;
 Form1.Caption := Edit1.Text;
 for i := Length(Form1.Caption) downto 0  do
  begin
   Form1.Caption := RightStr(Edit1.Text, i);
   //Aquí llevaría un Timer para que puedas ver el recorrido...
   //o un sleep(500); <-- Ojo no te dejará hacer más nada en la aplicación
  end;
end;

Lo que hice es simple, inserté en un FORM un Button y un Edit, y al evento del Button le puse el código antes mencionado arriba...

Espero que de algo te sirva...!!!