procedure TDOCRELEVANCYINFO2.DoUploadProgress(Transfer: ITransfer);
var
lUpload: IUploadTransfer;
lFileName: string;
begin
if Transfer.State = TTransferState.tsFinished then
begin
lUpload := Transfer as IUploadTransfer;
lFileName := DocUtils.NormalToWindow(lUpload.GetToFileName);
AttributeChanged(lFileName);
end;
end;