Decode Base64 MIME Body

Decoding a MIME body from Base64.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMIMELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mime: CHILKATMIMELib_TLB.IChilkatMime;
success: Integer;
mimeStr1: String;
mime2: CHILKATMIMELib_TLB.IChilkatMime;
decodedBody: String;

begin
mime := CoChilkatMime.Create();

success := mime.UnlockComponent('Anything for 30-day trial');
if (success = 0) then
  begin
    ShowMessage('Failed to unlock component');
    Exit;
  end;

//  Create MIME with base64 encoding:
mime.SetBodyFromPlainText('This is a test');
mime.Charset := 'windows-1252';
mime.Encoding := 'base64';

mimeStr1 := mime.GetMime();

Memo1.Lines.Add(mimeStr1);
Memo1.Lines.Add('-------------------------------');

//  Output looks like this:
//  Content-Type: text/plain;
//           charset="windows-1252"
//  content-transfer-encoding: base64
// 
//  VGhpcyBpcyBhIHRlc3Q=

//  Load the MIME into another Chilkat MIME object:
mime2 := CoChilkatMime.Create();
mime2.LoadMime(mimeStr1);

//  Get the MIME body decoded:
decodedBody := mime2.GetBodyDecoded();

//  Prints: this is a test
Memo1.Lines.Add(decodedBody);


end;