Delphi Code - Search Microsoft Outlook Emails by Importance

procedure TForm1.SearchMicrosoftOutlookEmailsByImportance(Sender: TObject);
var
   Count: Integer;
   StartDate, EndDate: TDate;
   OutlookFindString: String;
   OutlookApplication, OutlookNameSpace, OutlookFolder, OutlookFolderEmailItems, OutlookMailItem: Variant;
begin
     //be sure ComObj and Variants units are included in the "uses" clause

     Count := 0;

     StartDate := StrToDate('7/20/2022'); //start of date window
     EndDate := StrToDate('7/31/2022');   //end date for search window
     EndDate := EndDate + 1;              //make the search inclusive for the specified window

     OutlookFindString := '[ReceivedTime] >= "' + FormatDateTime('ddddd h:nn AMPM', StartDate) + '" and [ReceivedTime] < "' + FormatDateTime('ddddd h:nn AMPM', EndDate) + '"';

     OutlookApplication := Null;
     OutlookNameSpace := Null;
     OutlookFolder := Null;
     OutlookFolderEmailItems := Null;
     OutlookMailItem := Null;

     try
        //create Outlook OLE
        OutlookApplication := CreateOleObject('Outlook.Application');
     except
           OutlookApplication := Null;
           //add error/exception handling code as desired
     end;

     If VarIsNull(OutlookApplication) = False then
        begin
             try
                OutlookNameSpace := OutlookApplication.GetNameSpace('MAPI');
                OutlookNameSpace.Logon('', '', False, True);
                OutlookFolder := OutlookNameSpace.GetDefaultFolder(6); //6 is Inbox
                OutlookFolderEmailItems := OutlookFolder.Items;

                OutlookFolderEmailItems.Sort('[ReceivedTime]', False); //True = descending; False = ascending

                try
                   OutlookMailItem := Null;
                   OutlookMailItem := OutlookFolderEmailItems.Find(OutlookFindString);
                   //reference
                   //https://docs.microsoft.com/en-us/office/vba/api/outlook.items.find
                   repeat
                         If (VarIsNull(OutlookMailItem) = False) and (VarIsEmpty(OutlookMailItem) = False) then
                            begin
                                 //add code to handle emails as desired
                                 //here we capture a summary of the emails found
                                 //we will only look at those with high importance
                                 //be sure a Memo1 VCL object exists
                                 If OutlookMailItem.Importance = 2 then // 2 = high importance
                                    begin
                                         Count := Count + 1;
                                         Memo1.Lines.Add(IntToStr(Count) + '  |  Sent: ' + DateTimeToStr(OutlookMailItem.ReceivedTime) + '  |  From: ' + OutlookMailItem.SenderName);
                                    end;
                                 //refereces
                                 //https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem
                                 //https://docs.microsoft.com/en-us/office/vba/api/outlook.mailitem.importance
                                 //https://docs.microsoft.com/en-us/office/vba/api/outlook.olimportance
                                 // 0 = low importance
                                 // 1 = medium importance
                                 // 2 = high importance
                            end;
                         OutlookMailItem := Unassigned;
                         OutlookMailItem := OutlookFolderEmailItems.FindNext;
                         //reference
                         //https://docs.microsoft.com/en-us/office/vba/api/outlook.items.findnext
                   until (VarIsNull(OutlookMailItem) = True) or (VarIsEmpty(OutlookMailItem) = True);
                except
                     //add error/exception handling code as desired
                end;
             finally
                    OutlookMailItem := Unassigned;
                    OutlookFolderEmailItems := Unassigned;
                    OutlookFolder := Unassigned;
                    OutlookNameSpace := Unassigned;
                    OutlookApplication := Unassigned;
             end;
        end;
end;