TGikoHanyan=class(T2chAAChar)
　procedure Itteyosi;
　procedure Golaa;virtual;
end;

TGikoFussell=class(TGikoHanyan)
　procedure Fusafusa;
　procedure Golaa;override;
end;

TDelGikoFussell=class(GikoFussel)
　procedure DelphiOperation;
procedure DelphiNeta;
end;