Unit bug0083; interface Type T = OBject Constructor Init; Destructor Free; virtual; Destructor Destroy; virtual; end; implementation constructor T.INit; begin end; Destructor t.Free; begin end; Destructor t.Destroy; begin end; end.