uses sysutils, classes, RFC2822;

var
  fInput : TStream;
  fParser : RFC2822.TParser;
begin
  fInput := TFileStream.Create(ParamStr(1), fmOpenRead);
  fParser := RFC2822.TParser.Create(fInput, True);
  fParser.Parse();
  FreeAndNil(fParser);
end.