每隔1秒显示一个字的程序如何写

每隔1秒显示一个字的程序怎么写？
刚学delphi一周，有个问题：
运行程序时，程序屏幕上有一条字“海南欢迎您”
但每隔一秒才显示一个字

也就是
第1秒，显示“海”
第2秒，显示“南”，加起来就是显示“海南”
第3秒，显示“欢”，加起来就是显示“海南欢”
……
这样的程序怎么实现？
假如字很长很长，有没有什么高效率的方法？

------解决方案--------------------
定义两个全局变量：
i: Integer;
s: String;
在form的show事件中：
i:=1;
s:='假如字很长很长，有没有什么高效率的方法？';
放一个Timer控件，间隔1秒。
在Timer的事件中：
i := i + 1;
if i>length(s) then
i := 1;
label1.caption := copy(s,1,i);
差不多这样吧，没环境试。