Delphi 7 как читать сообщения в определенном папке в мейл ру

  SMTP.Host := 'smtp.mail.ru';
  SMTP.Port := 466;
  SMTP.AuthType := satDefault;
  SMTP.Username := 'test88@mail.ru';
  SMTP.Password := 'fagada423asda';
  SSLOpen := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  SSLOpen.Destination := SMTP.Host+':'+IntToStr(SMTP.Port);
  SSLOpen.Host := SMTP.Host;
  SSLOpen.Port := SMTP.Port;
  SSLOpen.DefaultPort := 0;
  SSLOpen.SSLOptions.Method := sslvSSLv23;
  SSLOpen.SSLOptions.Mode := sslmUnassigned;
  SMTP.IOHandler := SSLOpen;
  SMTP.UseTLS := utUseImplicitTLS;
  msg := TIdMessage.Create(Application);
  msg.Subject := Memo1.Text;
  msg.From.Address := 'test88@mail.ru';
  msg.From.Name := 'SH';
  msg.Recipients.EMailAddresses := 'test88@mail.ru';
  SMTP.Connect;
  SMTP.Send(msg);
  SMTP.Disconnect();
  SMTP.Free;
  msg.Free;
  SSLOpen.Free;

 POP3.Host:='mail.58r.ru'; // адресс почтового сервера
 POP3.Port:=110;           // порт по которому будет осуществляться подключение
 POP3.Username:='test+58r.ru'; // Логин пользователя
 POP3.Password:='12345666';   // пароль пользователя
 IdMessage.Clear; // очистка буфера для сообщения
 POP3.Connect; // подключение по протоколу POP3, по настрокам в компоненте IdPOP3, с именем POP3
 Memo1.Clear;   // очистка компонента memo для отображения текста письма.
 POP3.Retrieve(1,IdMessage);  // получение одного сообщения
 Memo1.Lines.AddStrings(IdMessage.Body); // передача сообщения из компонента IdMessage в memo
 POP3.Delete(1); // удаление с сервера, полученного сообщения
 POP3.Disconnect;   // разрыв связи