Download Status Code To Str

function TfrmUtama.StatusCodeToStr(AStatus: TURLDownloadStatus): String;
begin
  case AStatus of
    dsFindingResource           : result := 'Finding Resource';
    dsConnecting                : result := 'Connecting';
    dsRedirecting               : result := 'Redirecting';
    dsBeginDownloadData         : result := 'Begin Download Data';
    dsDownloadingData           : result := 'Downloading Data';
    dsEndDownloadData           : result := 'End Download Data';
    dsBeginDownloadComponents   : result := 'Begin Download Components';
    dsInstallingComponents      : result := 'Installing Components';
    dsEndDownloadComponents     : result := 'End Download Components';
    dsUsingCachedCopy           : result := 'Using Cached Copy';
    dsSendingRequest            : result := 'Sending Request';
    dsClassIDAvailable          : result := 'Class ID Available';
    dsMIMETypeAvailable         : result := 'MIME Type Available';
    dsCacheFileNameAvailable    : result := 'Cache File Name Available';
    dsBeginSyncOperation        : result := 'Begin Sync Operation';
    dsEndSyncOperation          : result := 'End Sync Operation';
    dsBeginUploadData           : result := 'Begin Upload Data';
    dsUploadingData             : result := 'Uploading Data';
    dsEndUploadData             : result := 'End Upload Data';
    dsProtocolClassID           : result := 'Protocol Class ID';
    dsEncoding                  : result := 'Encoding';
    dsVerifiedMIMETypeAvailable : result := 'Verified MIME Type Available';
    dsClassInstallLocation      : result := 'Class Install Location';
    dsDecoding                  : result := 'Decoding';
    dsLoadingMIMEHandler        : result := 'Loading MIME Handler';
    dsContentDispositionAttach  : result := 'Content Disposition Attach';
    dsFilterReportMIMEType      : result := 'Filter Report MIME Type';
    dsCLSIDCanInstantiate       : result := 'CLSID Can Instantiate';
    dsIUnKnownAvailable         : result := 'IUnKnown Available';
    dsDirectBind                : result := 'Direct Bind';
    dsRawMIMEType               : result := 'Raw MIME Type';
    dsProxyDetecting            : result := 'Proxy Detecting';
    dsAcceptRanges              : result := 'Accept Ranges';
    dsCookieSent                : result := 'Cookie Sent';
    dsCompactPolicyReceived     : result := 'Compact Policy Received';
    dsCookieSuppressed          : result := 'Cookie Suppressed';
    dsCookieStateUnknown        : result := 'Cookie State Unknown';
    dsCookieStateAccept         : result := 'Cookie State Accept';
    dsCookeStateReject          : result := 'Cooke State Reject';
    dsCookieStatePrompt         : result := 'Cookie State Prompt';
    dsCookieStateLeash          : result := 'Cookie State Leash';
    dsCookieStateDowngrade      : result := 'Cookie State Downgrade';
    dsPolicyHREF                : result := 'Policy HREF';
    dsP3PHeader                 : result := 'P3P Header';
    dsSessionCookieReceived     : result := 'Session Cookie Received';
    dsPersistentCookieReceived  : result := 'Persistent Cookie Received';
    dsSessionCookiesAllowed     : result := 'Session Cookies Allowed';
  end;
end;