
{*******************************************************}
{                                                       }
{       Borland Delphi Visual Component Library         }
{                                                       }
{       Copyright (c) 1995,98 Inprise Corporation       }
{                                                       }
{*******************************************************}

unit Proxies;

interface

procedure CreateSubClass(Instance: TObject; const ClassName: string;
  Ancestor: TClass);
procedure DestroySubClass(Instance: TObject);
procedure RenameSubClass(Instance: TObject; const ClassName: string);
function GetSubClassInstance(Proxy: TClass): TObject;
function CreateSubClassMethod(Instance: TObject;
  const MethodName: string): Pointer;
procedure RenameSubClassMethod(Instance: TObject; Method: Pointer;
  const MethodName: string);
procedure DestroySubClassMethod(Instance: TObject; Method: Pointer);

implementation
