100分(因为他只允许最多给100分)定义类的时候出I/O错误

Question

我写一段代码,构造两个人的类,为什么最后他会出这个问题呢? 下面是我的代码: program P_class;{APPTYPE CONSOLE}uses
   SysUtils,
   Dialogs;type
   THuman=class
   private
      Name:string;
   public
      function GetName:string;
      constructor Create(Aname:string);
      destructor Destroy;
end;constructor THuman.Create(Aname:string);
 begin
    writeln('created');
    Name:=Aname;
 end;destructor THuman.Destroy;
 begin
    writeln('destroyed');
 end;function THuman.GetName:string;
 begin
    result:=Name;
 end;
var person1,person2:THuman;begin
  person1:=THuman.Create('Davy');
  person2:=THuman.Create('Wang');  writeln('person1 is '+person1.GetName);
  writeln('person2 is '+person2.GetName);  person1.Destroy;
  person2.Destroy;  readln;
end.
 
错误提示如下: 
  Exception EInOutError in module Project2.exe at 0004CB28.
  I/O error 105 
========================================================================
请问这个问题如何才能解决呢? 
还有哪位大哥能不能教小弟一招, 如何通过 "I/O error 105"  中的数字查阅到相关错误帮助呢? 按F1 似乎信息太少了

Answer 1

{APPTYPE CONSOLE}
==================
正确的应该是:
{$APPTYPE CONSOLE}