var S3: IS3Client; Waiter: IS3ObjectWaiter; begin S3 := TS3Client.Create; Waiter := TSObjectExistsWaiter.Create(S3); Waiter.Wait('a-bucket-name', 'a-object-key').IsSuccessful then begin // Object exists. end; end;