{coloque um ttimer, um panel, um label dentro do panel. Set a propriedade interval do timer de 1000 para 1. isso fará com que o letreiro fique mais rápido.

Mude as cores e o caption do label como quiser. depois acrescente os códigos abaixo}



procedure TForm1.Timer1Timer(Sender: TObject);

begin

        if label1.Left=panel1.Width then

        label1.Left:=-(label1.Width)

        else

        label1.Left:=label1.Left+1;

end;



procedure TForm1.FormShow(Sender: TObject);

begin

        label1.Left:=-(label1.Width);

end;