Loading a DICOM Directory (Delphi)

//global
    LEADDicomDir1: TLEADDicomDir;

Procedure TForm1.TestLoadingDicomDir();
begin
   // Load a DICOMDIR File. Note: It is necessary to specify
   // DS_LOAD_CLOSE so that we can save the Directory later. 
   LEADDicomDir1.LoadDicomDir ('C:\Medical Images\DICOMDIR', DS_LOAD_CLOSE); 

   // Add some additional DICOM files to the loaded Directory
   LEADDicomDir1.InsertDicomFile ('C:\Medical Images\Image'); 
   LEADDicomDir1.InsertDicomFile('C:\Medical Images\Patient 2\Image1'); 

   // Save the DICOMDIR File
   LEADDicomDir1.SaveDicomDir ();
end;