procedure TForm1.Button1Click(Sender: TObject);
Var
  oMail: IMail;
  oClient: TMailClient;
  oServer: TMailServer;
  oTools: TTools;
  infos: OleVariant;
  folders: OleVariant; oFolder: IImap4Folder;
  i, UBound, Count, iFol: Integer;
  oInfo: IMailInfo;
  mailFolder: WideString;
  fileName: WideString;
Begin
  Try
    oTools := TTools.Create(Application);

    // Create a folder named "inbox" under
    // current directory to store the email files
    mailFolder := GetCurrentDir() + '\inbox';
    oTools.CreateFolder(mailFolder);

    oServer := TMailServer.Create(Application);
    oServer.User := 'user@outlook.com';
    oServer.Password := 'password';
    oServer.Server :=  'imap-mail.outlook.com';
    oServer.Protocol := MailServerImap4;
    oServer.Port := 993;
    oServer.SSLType := ConnectSSL; 

    oClient := TMailClient.Create(Application);
    oClient.LicenseCode := 'TryIt';

    oClient.Connect1(oServer.DefaultInterface);
    self.Caption := 'Connected!';
    
    //GetFolders
    folders := oClient.Imap4Folders;
    iFol := VarArrayHighBound( folders, 1 );
    Memo1.Clear;
    For i := 0 To iFol Do Begin
       oFolder := IDispatch(VarArrayGet(infos, i)) As IImap4Folder ;
       Memo1.Lines.Add(oFolder.Name);
    End;

    infos := oClient.GetMailInfos();
    UBound := VarArrayHighBound( infos, 1 );
    Count := UBound+1;
    Memo1.Clear;
    For i := 0 To UBound Do Begin
      self.Caption := 'Va por: ' + IntToStr(i) + ' Total: ' + IntToStr(UBound);
      oInfo := IDispatch(VarArrayGet(infos, i)) As IMailInfo ;
      fileName := mailFolder + '\' + oTools.GenFileName(i) + '.eml';
      oMail := oClient.GetMail( oInfo );
      Memo1.Lines.Add(oMail.From.Address);
      if (oMail.From.Address = oServer.User) then begin
        oMail.SaveAs( fileName, true );
      end;
    End;
    oClient.Quit;

  Except
    On ep:Exception Do
      ShowMessage( 'Error: ' + ep.Message );
  End;
End;