Иерархия геометрических фигур: Для объекта не был вызван конструктор

{Доброго времени суток, пытался сделать вывод фигур - а выдает ошибку: 
"для объекта не был вызван конструктор".
Помогите кто знает, я в ооп не силен, не критикуйте сильно - в первые "такое чудо пишу"...}
 
uses GraphABC;
 
type
TGraphObj = class
  X,Y: Integer;
  Color: Word;
  Public
  Constructor Init(aX,aY: Integer; aColor: Word);
  Procedure Draw(aColor: Word);
  Procedure Show;
  Procedure Hide;
  Procedure MoveTo(dX, dY: Integer);
end;
 
TPoint = class(TGraphObj)
  Procedure Draw(aColor:Word);
end;
 
Constructor TGraphObj.Init(aX,aY: Integer; aColor: Word);
  begin
  x:=Ax; y:=Ay; color:=Acolor;
end;
 
Procedure TGraphObj.Draw(aColor: Word);
begin end;
  Procedure TGraphObj.Show;begin end;
  Procedure TGraphObj.Hide;begin end;
  Procedure TGraphObj.MoveTo(dX, dY: Integer);
    begin end;
    
//<---------------- Точка ---------------->
Procedure TPoint.Draw(aColor:Word);
begin
  PutPixel(X,Y,244) {Показываем цветом Color пиксель с координатами X и Y}
end;
 
//<---------------- Круг ---------------->
 
type
TCircle = class(TGraphObj)
  R: Integer; {Радиус}
public
  Constructor Init(aX,aY,aR: Integer; aColor: Word);
  Procedure Draw(aColor:Word);
end;
 
Constructor TCircle.Init(aX,aY,aR: Integer; aColor: Word);
begin
 // Inherited
   TGraphObj.Init(aX,aY,aColor) ;
  R := aR
end;
 
procedure TCircle.Draw(aColor:Word);
begin
  SetPenColor(aColor); {Устанавливаем цвет Color}
  Circle(X,Y,R) {Вычерчиваем окружность}
end;
 
//<---------------- Линия ---------------->
 
type
TLine = class (TGraphObj)
  dX,dY: Integer; {Приращения координат второго конца}
  Constructor Init(X1,Y1,X2,Y2: Integer; aColor: Word);
  Procedure Draw(aColor: Word);
end;
 
 
Constructor TLine.Init(X1,Y1,X2,Y2: Integer; aColor: Word);
{Вызывает унаследованный конструктор TGraphObj для инициации полей
X, Y и Color. Затем инициирует поля dX и dY}
begin
  {Вызываем унаследованный конструктор}
  Inherited Init(X1,Y1,aColor);
  {Инициируем поля dX и dY}
  dX := X2-X1;
  dY := Y2-Y1;
end;
 
Procedure TLine.Draw(aColor:Word);
begin
  SetPenColor(255) ; {Устанавливаем цвет Color}
  Line(X, Y, X+dX, Y+dY); {Вычерчиваем линию}
end;
 
//<---------------- Прямоугольник ---------------->
 
type
TRect = class(TLine)
  procedure Draw(aColor: Word);
end;
Procedure TRect.Draw(aColor:Word);
begin
  SetPenColor(aColor) ;
  Rectangle(X,Y,X+dX,Y+dY) {Вычерчиваем прямоугольник}
end;
 
//<------------------- Вывод ---------------------------->
 
var A:TLine; X:TGraphObj;
 
begin
 
A.Init(20,30,40,20,25);
//A.Draw();
 
end.