紧急求救！class问题(50分)

编译没问题，运行在(1)处出现问题
去掉(1)和(2)，编译也没问题，运行出错，强制读取：（
是个基本问题，请高手帮帮我吧，在此谢过了[]
//分两个文件
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils,
Unit1 in 'Unit1.pas';
var aa: Taa;
begin
aa.Create
<--(1)
aa.inca;
aa.free
<--(2)
end.
//以下为Unit1.pas
unit Unit1;
interface
type
Taa = class
private
a : integer;
public
procedure inca;
end;
implementation
procedure Taa.inca;
begin
inc(a);
end;
end.

aa.Create;
改为
aa := Taa.create(nil);

如果去掉1,2 当然会出错,
aa是一个空对象,没有创建

type
Taa = class
private
a : integer;
public
constructor Create;
procedure inca;
end;

implementation
constructor Taa.Create;
begin
a:=0;
end;

你的类不太对吧;

十分感谢：）