[Максим_mk]

Готовый код, все можно закрывать тему. Осталась только работа с Memo, ну это уже в другой теме)))

Код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, mimemess, mimepart, ExtCtrls, ComCtrls, ActiveX;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Memo2: TMemo;
    Memo3: TMemo;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
    procedure GetParts(const part: TMimepart);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
    IdMes:TMimeMess;

implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.GetParts(const part: TMimepart);
var
  s: string;
  i: integer;
begin
  if (LowerCase(part.Primary)='text') and (LowerCase(part.FileName)='')  then  //Проверим  что данный блок - текст сообщения
  begin
  part.DecodePart;
    if LowerCase(part.Secondary)='plain'   then    // Определяем что это простой текст
         Memo1.Lines.LoadFromStream(part.DecodedLines); // Загружаем раскодированные данные
    end;

  for i := 0 to part.GetSubPartCount - 1 do
    GetParts( part.getsubpart(i));     // проверяем наличие следующего блока
end;





procedure TForm1.Button1Click(Sender: TObject);
  var
     i:integer;
     SearchResult: TSearchRec;
begin
    if FindFirst('*.eml', faAnyFile, SearchResult) = 0 then
    repeat
      IdMes:=TMimeMess.Create;
      IdMes.Lines.LoadFromFile(SearchResult.Name);
      IdMes.DecodeMessage;
      Memo2.Lines.Assign(IdMes.Header.CustomHeaders);
      GetParts(IdMes.MessagePart);
      Memo3.Lines.Add(Memo1.Text);

    until FindNext(SearchResult) <> 0;
  FindClose(SearchResult);



 { if OpenDialog1.Execute then
  begin
    IdMes:=TMimeMess.Create;
    IdMes.Lines.LoadFromFile(OpenDialog1.FileName);
  end;
    IdMes.DecodeMessage;     // Раскодируем сообщение, обязательно
    Memo2.Lines.Assign(IdMes.Header.CustomHeaders); // Заголовки, не спицифичные для формата MIME
    GetParts(IdMes.MessagePart);    // рекурсивная процедура обхода блоков сообщения

            }
end;


end.