为什么Delphi XE3给出“E2382无法使用实例变量调用构造函数”？

我有一段简单的代码,在Delphi XE2中编译但在XE3中编译,我不知道为什么.我已经将有问题的代码减少到一点点,并且想知道Delphi认为它有什么问题.尝试在Delphi XE 2中编译包含此单元的项目工作正常,但在Delphi XE3(试用版)中,它给出了“[dcc32 Error] AffineTransform.pas(26)：E2382无法使用实例变量调用构造函数”.我所知道的唯一“古怪”的东西是使用旧式的“对象”类型,其中构造函数与真实对象(基于TObject的类实例)实际上并不完全相同.

如果我用’procedure’替换这个对象中的’constructor’,那么它编译好了,但是为什么这样,这是我的代码中的一个好的改变,即它是一个不会对功能？

unit AffineTransform;

interface

type
  { Rectangular area. }
  TCoordRect = object
  public
    Left,Top,Right,Bottom: Real;
    constructor CreatePos(ALeft,ATop,ARight,ABottom: Real);
    procedure   Include(AX,AY: Real);
  end;

implementation

constructor TCoordRect.CreatePos(ALeft,ABottom: Real);
begin
  Left := ALeft;
  Top := ATop;
  Right := ARight;
  Bottom := ABottom;
end;

procedure TCoordRect.Include(AX,AY: Real);
begin
  CreatePos(AX,AY,AX,AY)
end;

end.

ctx := TRttiContext.Create;
try
  ....
finally
  ctx.Free;
end;