Getting Print Job Information (Delphi)

Procedure TForm1.GetPrintJobInfo(LEADDicomPrintSCU: LEADDicomPrintSCU; strPrintJobInstanceUID: String);
var
   strMsg: String;
begin
   with (LEADDicomPrintSCU.PrintJob) do
   begin
      // We need only the Execution Status and Execution Status Info
      RequiredInfo:= PJ_EXECUTION_STATUS + PJ_EXECUTION_STATUS_INFO;

      // Query the Print SCP for the Print Job information
      if(GetInfo (strPrintJobInstanceUID) = DICOM_SUCCESS)then
      begin
         strMsg:= 'Execution Status: ' + ExecutionStatus + Chr(13) +
                  'Execution Status Info: ' + ExecutionStatusInfo;
         // Display the retrieved information
         Application.MessageBox(PChar(strMsg), 'Print Job Info', MB_OK);
      end;
   end;
end;