在登陆界面上进入后出现欢迎界面，5秒后自动进入主界面。
我在欢迎界面上放了一个timer控件，在timer事件中代码
procedure Thy_Form.Timer1Timer(Sender: TObject);
var i:integer;
begin
i:=timer1.Interval;
if i=5000 then

zjm_form.Show; //主界面
hy_form.Hide; //欢迎界面
end;


这样做的不对，结果是欢迎界面消失，主界面也不出来
各位高手帮帮忙啊

楼上的辛苦哇
太复杂啦
来个简单的吧

已经解决
procedure Thy_Form.Timer1Timer(Sender: TObject);

begin
i:=i+1;
if i=3
then
begin
zjm_form.Show;
hy_form.Hide;
end
end;