anchor.diff:    Halt();
   End;
   {$ENDIF}
  +*)
   
   function BaseApplication.SetOrientation(Const Value:TERRAOrientation): Boolean;
   Var
  
positive.code: End;
  
  
  Initialization
    {$IFDEF FPC}
    ExceptProc := CatchUnhandledException;
    {$ENDIF}
  
  Finalization
    //ShutdownComponents;
  End.
  
negative.code:   Self._Language := Language;
  End;
  
  (*{$IFDEF FPC}
  Procedure CatchUnhandledException(Obj: TObject; Addr: Pointer; FrameCount: Longint; Frames: PPointer);
  Var
    Result:TERRAString;
  