anchor.diff:        function getaccess_key: UTF8String;
         function getregion: UTF8String;
         function getcredential_file: UTF8String;
  +      function getprofile: UTF8String;
  +
         function GetEnvVariableValue(const aVariablename: string): string;
       public
  -      constructor Create(aprofile: UTF8String = ''; acredential_file: UTF8String = '');
         property secret_key: UTF8String read getsecret_key;
         property access_key: UTF8String read getaccess_key;
         property region: UTF8String read getregion;
         property credential_file: UTF8String read getcredential_file;
  +      property profile: UTF8String read getprofile;
   
         procedure GetEnvironmentVariables;
      end;
  
positive.code:   AWS_ACCESS_KEY_ID = 'AWS_ACCESS_KEY_ID';
    AWS_SECRET_ACCESS_KEY = 'AWS_SECRET_ACCESS_KEY';
    AWS_CREDENTIAL_FILE = 'AWS_CREDENTIAL_FILE';
  
  type
    TAmazonEnvironment = class
      protected
        fsaprofile: UTF8String;
        fssecret_key: UTF8String;
        fsaccess_key: UTF8String;
        fsregion: UTF8String;
  
negative.code: 
  implementation
  
  function TAmazonEnvironment.GetEnvVariableValue(const aVariablename: string): string;
  var
    BufSize: Integer;
  begin
    Result := Trim(GetEnvironmentVariable(aVariablename));
  end;
  
  
  