NetReceiveUnknown Example for Delphi

procedure TForm1.LEADDicomNet1NetReceiveUnknown(ASender: TObject;
  hNet: Integer; nPresentationID: Smallint; hCS, hDS: Integer);
var
   strOut: String;
begin
   strOut:= 'Unknown Command Set/Data Set was received, and ignored';
   strOut:= strOut + Chr(13);
   strOut:= strOut + 'Presentation ID: ' + IntToStr(nPresentationID);
   ShowMessage(strOut);
end;