delphi7 constructor 有关问题

delphi7 constructor 问题
delphi2010下代码如下：
 TXRegionRect = packed record
    X: Integer;
    Y: Integer;
    Width: Integer;
    Height: Integer;
  public
    constructor TXRegionRect(AX,AY,AWidth,AHeight: Integer);
  end;

constructor TXRegionRect.TXRegionRect(AX,AY,AWidth,AHeight: Integer);
begin
  X := AX;
  Y := AY;
  Width := AWidth;
  Height := AHeight;
end;
要想在delphi7用应该怎么改？