IMAP.RetrieveAllHeaders(IMAP.MailBox.MessageList);
         aMsgCnt:=IMAP.MailBox.MessageList.Count;

         if (aMsgCnt > 0) then
         begin

           for I := aMsgCnt downto 1 do
           begin
             if aRetrMail then
             begin                                 (*retrieve letter*)
               Msg.Clear;
               fStream.Clear;
               IMAP.Retrieve(I,Msg);

               Msg.SaveToStream(fStream);
               fStream.Position:=0;
               Lst2.LoadFromStream(fStream);
               Lst1.Add('<rowmail>');         (*ROW mail text*)
               Lst1.Add(Lst2.Text);
               Lst1.Add('</rowmail>'+sLineBreak);
             end;
           end;

           aList.Assign(Lst1);
         end;