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;