delphi编程的一个问题:Invalid pointer operation

    var
     TMPFORM : Tform ;
     begin
     Try
     application.CreateForm(TFdecoform,TMPFORM) ;
     TMPFORM.Name:=TNAME;
     TMPFORM.Show;
     Except
     ON E:EXCEPTION DO
     Application.MessageBox(PCHAR('不能生成窗体,原因：'+E.Message),'系统出错信 息',mb_ok+mb_iconerror)
    
     End;
     end;
    
     运行后显示:---------------------------
    
     不能生成窗体,原因：Invalid pointer operation
    
     请高手们不吝赐教!!!!

a,不是每次都不能生成
b,软件中有窗体生成成功则其它的窗体也有可能成功，意即成功一个，其它的也可运行