SaveDS Example for Delphi

Procedure TForm1.SaveDS(FileName: String);
var
   nRet: Integer;
begin
   LEADDicomDS1.EnableMethodErrors:= False;
   //save a Data Set
   if(FileName <> '')then
   begin
       nRet:= LEADDicomDS1.SaveDS(FileName, 0);
       if(nRet <> DICOM_SUCCESS)then
           ShowMessage('Error ' + IntToStr(nRet) + ' saving file!');
   end;
   LEADDicomDS1.EnableMethodErrors:= True;
end;