Delphi-PRAXiS - Screen Capture Tool für Delphi?

leider ist der aber nicht mehr mit Delphi XE2 kompatibel
wie kann ich den das ganze umschreiben?

EDIT
Neben ein paar kleineren Fehler die sich schnell beheben ließen.
ist doch nun ein größerer Fehler eingetroffen

Delphi-Quellcode:

			uses

  // Use professional screen camera units

  scConsts,

  scAboutBox,

  ScrCam,

  // Use delphi standard units

  Classes,

  Forms,

  ToolsAPI,

  SysUtils,

  Graphics,

  {$IFDEF VERSION6}

  DesignIntf,

  DesignEditors;

  {$ELSE}

  dsgnintf;

  {$ENDIF}

[DCC Fataler Fehler] scReg.pas(147): F1026 Datei nicht gefunden: 'dsgnintf.dcu'

EDIT 2

ich hab die Datei heruntergeladen und eingebunden
doch jetzt kommt der fehler
[DCC Fehler] dsgnintf.pas(179): E2003 Undeklarierter Bezeichner: 'IDesigner'

Delphi-Quellcode:

			type

  IFormDesigner = interface(IDesigner)

    ['{ADDD444D-1B03-11D3-A8F8-00C04FA32F53}']

    function CreateMethod(const Name: string; TypeData: PTypeData): TMethod;

    function GetMethodName(const Method: TMethod): string;

    procedure GetMethods(TypeData: PTypeData; Proc: TGetStrProc);

    function GetPrivateDirectory: string;

    procedure GetSelections(const List: IDesignerSelections);

    function MethodExists(const Name: string): Boolean;

    procedure RenameMethod(const CurName, NewName: string);

    procedure SelectComponent(Instance: TPersistent);

    procedure SetSelections(const List: IDesignerSelections);

    procedure ShowMethod(const Name: string);

    procedure GetComponentNames(TypeData: PTypeData; Proc: TGetStrProc);

    function GetComponent(const Name: string): TComponent;

    function GetComponentName(Component: TComponent): string;

    function GetObject(const Name: string): TPersistent;

    function GetObjectName(Instance: TPersistent): string;

    procedure GetObjectNames(TypeData: PTypeData; Proc: TGetStrProc);

    function MethodFromAncestor(const Method: TMethod): Boolean;

    function CreateComponent(ComponentClass: TComponentClass; Parent: TComponent;

      Left, Top, Width, Height: Integer): TComponent;

    function IsComponentLinkable(Component: TComponent): Boolean;

    procedure MakeComponentLinkable(Component: TComponent);

    procedure Revert(Instance: TPersistent; PropInfo: PPropInfo);

    function GetIsDormant: Boolean;

    function HasInterface: Boolean;

    function HasInterfaceMember(const Name: string): Boolean;

    procedure AddToInterface(InvKind: Integer; const Name: string; VT: Word;

      const TypeInfo: string);

    procedure GetProjectModules(Proc: TGetModuleProc);

    function GetAncestorDesigner: IFormDesigner;

    function IsSourceReadOnly: Boolean;

    function GetContainerWindow: TWinControl;

    procedure SetContainerWindow(const NewContainer: TWinControl);

    function GetScrollRanges(const ScrollPosition: TPoint): TPoint;

    procedure Edit(const Component: IComponent);

    function BuildLocalMenu(Base: TPopupMenu; Filter: TLocalMenuFilters): TPopupMenu;

    procedure ChainCall(const MethodName, InstanceName, InstanceMethod: string;

      TypeData: PTypeData);

    procedure CopySelection;

    procedure CutSelection;

    function CanPaste: Boolean;

    procedure PasteSelection;

    procedure DeleteSelection;

    procedure ClearSelection;

    procedure NoSelection;

    procedure ModuleFileNames(var ImplFileName, IntfFileName, FormFileName: string);

    function GetRootClassName: string;

    property IsDormant: Boolean read GetIsDormant;

    property AncestorDesigner: IFormDesigner read GetAncestorDesigner;

    property ContainerWindow: TWinControl read GetContainerWindow write SetContainerWindow;

  end;

und noch viele ähnliche Fehler dazu
Hab ich vielleicht die falsche Datei?