dx,dy:integer; Consttuctor Init(X1,Y1,X2,Y2:integer; aColor:word); Procedure Draw (aColor:word);virtual; end; TCircle= object(TGraphObj) Consttuctor Init(aX,aY,aR:integer; aColor:word); Procedure Draw (aColor:word);virtual; end; TRect= object(TLine)