Почта. Как получить отправителя, тему, дату, не "читая" письмо?

[Ship_1]

Здравствуйте!
Скопировал, чуток подработал, получилась программка, которая можетскачивать определённые вложения по определённому отправителю.
Потом решил попробовать сделать просмотр почты на Python. Просто просмотр, без заморочки с вложениями. Кое-как, не до конца, что-то получилось.
И вот что я заметил: через python при просмотре почты они не начинают отображаться как прочитанные. А через дельфи начинают... Можно ли как-то сделать так, чтобы и в Delphi тоже они оказывались непрочитанными? Или хотя бы можно ли получить список "От кого", "Тема", "Время и дата" так, чтобы сообщение не становилось от этого прочитанным?
Делал через TIdIMAP4, DelphiXE, Яндекс.
Подозреваю, что прочитанными они становятся после

idIMAP41.Retrieve(i, idMessage1);

Подумал, может, дело в

idMessage1.Flags:=idMessage1.Flags+[mfSeen];

Вроде бы выглядит логично. Сначала сдвинул его на пару строк вверх - внутрь if. Не помогло. Потом вообще закомментировал. Всё равно не помогло. Удивился и продолжаю не понимать: так где же избавиться от "прочитано"?

На всякий случай полный код процедуры:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j:integer;
  TargetDir : string; //полный путь, куда сохранять
  FilNm:string;
  TmpStrL:TStringList;
begin
   IdIMAP41.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
   IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv3;
   IdIMAP41.UseTLS    := utUseImplicitTLS;

   IdIMAP41.Username  := login;
   IdIMAP41.Password  := password;
   IdIMAP41.Host      := 'imap.yandex.ru';
   IdIMAP41.Port      := 993;
   try
      IdIMAP41.Connect;
   except
      showmessage('Error!');
      exit;
   end;

   TargetDir:=ExtractFilePath(Application.ExeName);
   IdIMAP41.SelectMailBox('INBOX'); // INBOX входящие
   Label1.Caption := IntToStr(IdIMAP41.MailBox.TotalMsgs); // количество писем
   for i := IdIMAP41.MailBox.TotalMsgs downto IdIMAP41.MailBox.TotalMsgs-5 do
   begin
     idIMAP41.Retrieve(i, idMessage1);
     if idMessage1.From.Address=some_from then
     begin
       idMessage1.MessageParts.CountParts; //разобрали на запчасти
       for J:= 0 to idMessage1.MessageParts.Count-1 do //на случай, если прицеплен не один файл
       begin
         if (idMessage1.MessageParts.Items[j] is TIdAttachment) then
         begin
           if Trim((idMessage1.MessageParts.Items[j]).FileName)<>'' then
           begin
             FilNm := AnsiString(Trim((idMessage1.MessageParts.Items[j]).FileName));
             ShowMessage(ExtractFileExt(FilNm));
             if ExtractFileExt(FilNm)='.txt' then
               (idMessage1.MessageParts.Items[j] as TIdAttachment).SaveToFile(TargetDir+FilNm);
          end;
         end;
       end;
     end;
     ListBox1.Items.Add(idMessage1.From.Address+' '+idMessage1.Subject);
     idMessage1.Flags:=idMessage1.Flags+[mfSeen];
   end;
    IdIMAP41.Disconnect;
    IdIMAP41.IOHandler.Free;
end;

[Sciv]

Если достаточно только "От кого", "Время" и "Дата", то может стоит только заголовки скачивать:

TidIMAP4.RetrieveAllHeaders

или

TIdIMAP4.ReceiveHeader

Я настолько глубоко в Инди не уходил, но видится, что там на одном Retrieve свет клином не сошёлся.

UPDATE Вот тут описаны некоторые методы для поп3, думаю, для аймапа тоже актуально.

[Ship_1]

Спасибо Тоже подумал про эти функции, но при RetrieveAllHeaders программа то зависала намертво, то ругалась на какой-то другой порт. А вот ReceiveHeader помог. Подумал, что при RetrieveAllHeaders виснет из-за огромного числа писем.
Вроде, проблему можно считать решённой, при ReceiveHeader прочитанным не становится. Спасибо!

P.S. За ссылку на статью отдельное спасибо, поизучаю на досуге.