Einfach mal einen Breakpunkt setzen und die Datenobjekte untersuchen?
Delphi-Quellcode:
{...}
source.WriteComponent(obj);
dest := TStringStream.Create;
source.Position := 0; // <- hier Breakpunkt und source untersuchen
IdEncoderMIME1.Encode(source, dest);
dest.Position := 0; // <- hier Breakpunkt und dest untersuchen
memo1.Lines.LoadFromStream(dest);