InitCS Example for Delphi

var
   strOut: String;
begin
   //create a data set as a command set
   LEADDicomDS1.InitCS (COMMAND_C_STORE, True);

   //gets information about the command set
   LEADDicomDS1.GetInfoCS ();
   strOut:= 'Command: ' + IntToStr(LEADDicomDS1.InfoCommand);
   strOut:= strOut + Chr(13);
   strOut:= strOut + 'Request: ' + BoolToStr(LEADDicomDS1.InfoRequest);
   ShowMessage(strOut);
end;