Text Berjalan Pada Delphi

Cara membuat text berjalan pada Delphi 7

1.       Bautlah form seperti gambar di bawah ini.

Tambahkan text dan atur ukuran dan jenis font sesuai selera..

2.      Tambahkan button untuk menjalankan text.

3.      Tambahkan source code berikut pada button.

var

  Form1: TForm1;

  jeda:integer=400;

  tulisan:string='SELAMAT DATANG';

  n:integer;

implementation

{$R *.dfm}

procedure Delay(t:LongInt);

var mulai,selesai,k:LongInt;

begin

 mulai:=GetTickCount;

repeat

 Application.ProcessMessages;

 selesai:=GetTickCount;

until (selesai-mulai) >=t;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

 Label1.Caption:='';

 Delay(jeda);

 for n:=1 to 14 do

 begin

 Label1.Caption:=Copy(tulisan,1,n);

 Delay(jeda);

 end;

4.      Running program dengan menekan F9,dan akan muncul seperti gambar di bawah ini.

Demikian share program dari saya.
ni sayakasih link program nya http://www.4shared.com/file/psNDDTGN/Project1.html 
mohon komentarnya J