我设计的这个类怎么了？

Question

unit2的内容
基类
type
 Tmyclass=class
 private
  a:integer;
 public
  procedure seta(value:integer);
  property the:integer read a write seta;
 end; Tmeclass=class(Tmyclass)
 public
  procedure go;
end;implemention
procedure Tmyclass.seta(value:integer);
begin
 a:=value;//*不停的执行这行
end;procedure Tmeclass.go;
begin
 inherited the:=3;
end;
unit1的内容
uses unit2;
按下button1
var
 ha:Tmyclass;
 haha:Tmeclass;
begin 
 ha:=Tmyclass.create;
 haha:=Tmeclass.create;
 haha.go;
end;
执行后编译无错，但在*处不断执行

Answer 1

没有试过你把这行inherited the:=3;的inherited去掉试一试

Answer 2

老兄，没有任何问题啊？？procedure Tmeclass.go;
begin
 inherited the:=3;
end;
不知道这样写有什么意义？个人认为不好。