self.x := 2;
self.y := 3.14;
end;
procedure tbase.freeinstance;
begin
inherited;
showmessage(format('call %s.freeinstance!!!',[self.classname]));
end;
class function tbase.newinstance: tobject;
begin
showmessage(format('call %s.newinstance',[self.classname]));
result := inherited newinstance;
end;
之后进行简单的声明对象：
var
b : tbase;
begin
