NetNonSecureReceivedISCL Example for Delphi

procedure TForm1.LEADDicomNet1NetNonSecureReceivedISCL (ASender: TObject;
  hNet, nError: Integer; var vBuffer: OleVariant; nLength: Integer);
begin
   if(nError = DICOM_SUCCESS)then
      ShowMessage('1st byte of data = ' + vBuffer[0] + ', last byte of data = ' + vBuffer[nLength - 1]);
end;