function TPerson.GetName: string;
begin
result:='TPerson.GetName';
end;
{ TChinese }
procedure TChinese.SayHello(str: string);
begin
ShowMessage('TChinese.SayHello('+str+')');
end;
constructor TChinese.create;
begin
ShowMessage('TChinese.create');
end;
destructor TChinese.destory;
begin
ShowMessage('TChinese.destory');
end;
procedure TChinese.SayHello;
begin
//inherited;
ShowMessage('TChinese.SayHello');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
