delphi – 如何在使用Synapse TMimeMess解码MIME时减少巨大的RAM使用量？

我使用TMimeMess来解码我的SMTP服务器的传入电子邮件
在Synapse上. @H_262_3@我发现用于解码50MB的MIME消息(简单的文本
附件),TMimeMess使用了600-800MB的内存.

@H_262_3@解码码在这里：

FMimeMsg.Header.DecodeHeaders(FMimeMsg.messagePart.Lines);
FMimeMsg.messagePart.DecomposeParts;
ExtractPartsFromMess(FMimeMsg.messagePart);
...
procedure ExtractPartsFromMess(AMimePart: TMimePart);
var i: Integer;
begin
  if AMimePart.GetSubPartCount = 0 then
    Begin
      if (AMimePart.PriMaryCode = MP_TEXT) then
        Begin
          AMimePart.DecodePart;          
          FBody.Add(String(ReadStrFromStream(AMimePart.DecodedLines,AMimePart.DecodedLines.SizE)));
    end
  else if (AMimePart.PriMaryCode = MP_BINARY) then
    Begin
      if AMimePart.Filename <> '' then
        Begin
          AMimePart.DecodePart;
          AMimePart.DecodedLines.SaveToFile(FPathToIncomingFolder+AMimePart.FileName);
        end;
    end;
end
else
Begin
  for i:=0 to AMimePart.GetSubPartCount-1 do
    Begin
      ExtractPartsFromMess(AMimePart.GetSubPart(i));
    end;
end;
end;

@H_262_3@谢谢.