unit Proxies;

interface

uses
  Classes;

function IsProxyClass (DaClass : TClass) : Boolean;

implementation

function IsProxyClass (DaClass : TClass) : Boolean;
begin
  Result := True;
end;

end.

（出处：DelphiFans.com）

[1]