ICore = interface
    ['{A46F6070-DA28-48F0-8CAC-B4DA6C7C7EE5}']

    procedure Update; stdcall;
    procedure GetWindow (out Window: IWindow); stdcall;
    procedure GetKeyMapper (out KeyMapper: IKeyMapper); stdcall;
    procedure GetFileSystem (out FileSystem: IFileSystem); stdcall;
//    function GetFPS: Integer; stdcall;
  end;

//<...>

  IWindow = interface
    ['{B76F468C-CE53-408E-A65E-4C2BCBF27299}']

    procedure Paint; stdcall;
    procedure OnMouseActivity (Event, X,Y: Integer; ShiftState: Cardinal); stdcall;
    procedure OnCaptureGained; stdcall;
    procedure OnCaptureLost; stdcall;
    procedure OnMouseLeave; stdcall;
    procedure OnMouseWheel (X,Y: Integer; ShiftState: Cardinal; dX,dY: Integer); stdcall;
    procedure OnKey (Event, OldState, NewState: Integer; Key: Cardinal); stdcall;
    procedure OnChar (Char: WideChar); stdcall;
    procedure GetDirect3D (out Direct3D: IDirect3D9); stdcall;
    procedure GetDirect3DDevice (out Direct3DDevice: IDirect3DDevice9); stdcall;
    procedure GetClientAreaSize (out Size: TPoint); stdcall;
    procedure GetMousePos (out Pos: TFloatPoint); stdcall;
    procedure GetShiftState (out ShiftState: Cardinal); stdcall;
  end;