title: Get the progress while upload file using AmazonAPI in delphi
body: <p>I use UploadObject in unit Data.Cloud.AmazonAPI to upload some files to the AWS S3,and it works,but how can I get the progress information while uploading or downloading? It's my code:</p>
  
  <pre><code>function TForm1.UploadFile(LocalFilePath: string; RemoteFileName: string; Bucket: string): Boolean;
  var
    Service: TAmazonStorageService;
    ConAmazon: TAmazonConnectionInfo;
    FS: TFileStream;
    Content: TBytes;
  begin
    try
      ConAmazon := TAmazonConnectionInfo.Create(nil);
      ConAmazon.AccountKey := 'MtJqIM7WyjJA*********************';
      ConAmazon.AccountName := 'AKIAIXVAH*********';
      ConAmazon.QueueEndpoint := 'queue.amazonaws.com';
      ConAmazon.StorageEndpoint := 's3-eu-west-1.amazonaws.com';
      ConAmazon.TableEndpoint := 'sdb.amazonaws.com';
      ConAmazon.UseDefaultEndpoints := True;
      Service := TAmazonStorageService.Create(ConAmazon);
      if FileExists(LocalFilePath) then
      begin
        FS := TFileStream.Create(LocalFilePath, fmOpenRead);
        Content := ByteContent(FS);
        FS.Free;
        Result := Service.UploadObject(Bucket, RemoteFileName, Content, True, nil, nil, amzbaPrivate, nil, OnProgress);
      end
      else
        Result := False;
    finally
      ConAmazon.Free;
      Service.Free;
    end;
  end;
  </code></pre>