SaveDS Example for Delphi

var
   nRet: Integer;
begin
   { save a Data Set }
   LEADDicom1.EnableMethodErrors := false;
   SaveDialog1.Filter := 'DICOM Data Set|*.dic';
   If SaveDialog1.Execute and (SaveDialog1.FileName <> '') Then
   begin
      nRet := LEADDicom1.SaveDS(SaveDialog1.FileName, 0);
      If nRet <> SUCCESS Then
         ShowMessage('Error ' + IntToStr(nRet) + ' Saving file ' + SaveDialog1.FileName);
   End;
   LEADDicom1.EnableMethodErrors := true
end;