anchor.diff:  
   implementation
   
  -
  -constructor TAmazonEnvironment.Create(aprofile: UTF8String = ''; acredential_file: UTF8String = '');
  -begin
  -  fsaprofile := aprofile;
  -  fscredential_file := acredential_file;
  -end;
  -
   function TAmazonEnvironment.GetEnvVariableValue(const aVariablename: string): string;
   var
     BufSize: Integer;
   begin
  -  Result := GetEnvironmentVariable(aVariablename);
  +  Result := Trim(GetEnvironmentVariable(aVariablename));
   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:   result := fscredential_file;
  end;
  
  function TAmazonEnvironment.getprofile: UTF8String;
  begin
    Result := fsProfile;
  end;
  
  end.
  