procedure TForm1.FormCreate(Sender: TObject);begin ShowMessage('abc');end;我这样在窗体打开时会弹出一个信息框,手工点击OK可以关闭,有没有代码可以代替实现手工的操作