InitCS Example for Delphi

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

   //gets information about the command set
   LEADDicom1.GetInfoCS ();
   szout:= 'Command: ' + IntToStr (LEADDicom1.InfoCommand);
   szout:= szout + Chr (13);
   if ( LEADDicom1.InfoRequest ) then
   szout:= szout + 'Request: True'
   else
   szout:= szout + 'Request: False';
   ShowMessage (szout);
end;