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