TIdMessage question: How to encode email body using Base64?

I want to use base64-encoding for my email body.
I set TIdMessage.ContentTransferEncoding to 'base64', but
it didn't work.

So how i can force TIdMessage to Base64-encode the msg text?
Thanks.

  IdMsg.Encoding := meMIME;
  IdMsg.ContentTransferEncoding := 'base64';
  IdMsg.Body.Assign(Memo1.Lines);
  IdMsg.From.Address := '...@bbb.com';
  IdMsg.Recipients.EMailAddresses := '...@ddd.com';
  Smtp.Connect;
  Smtp.Send(IdMsg);