delphi2010 mdi窗体问题

Question

最近在用d2010做个小东西，用到了mdi，但是存在问题，不知道是什么原因，请各位帮忙解决下。
子窗体创建 oncreate中是这样写的if Screen.FormCount>1 then
 begin
 self.MDIChildren[0].Close;
 end;
 PrivateForm:=TPrivateForm.create(application);
 if not assigned(PrivateForm) then  begin
   PrivateForm:=TPrivateForm.create(application);
   PrivateForm.Left:=0;
   PrivateForm.Top:=0;
   end;
 PrivateForm.Show;onclose中有Action:=CaFree;
然后运行，但是弹出错误，代码没问题，可能是逻辑的问题，但我不会改
Acess violation at address 004B7AA5 in module 'SIMProject.exe'.Read of address 00000384
请各位高手帮忙解决下，小弟感激不尽，希望大家共同学习进步！！！

Answer 1

if self.MDIChildCount>0 then
   self.MDIChildren[0].Close;PrivateForm:=TPrivateForm.create(application);
PrivateForm.Left:=0;
PrivateForm.Top:=0;