delphi xe showmessage步骤闪一下就消失了

delphi xe showmessage方法闪一下就消失了
   dateview := tdateview.Create();
    dateview.Setname('哈哈');
    ShowMessage(dateview.Getname);

[解决办法]
这个有问题吗？写法还是有问题，有创建没释放．坑人的货