NetReceive Example for Delphi

procedure TForm1.LEADDicomNet1NetReceive(ASender: TObject; hNet,
  nStatus: Integer; nType: Smallint; pData: OleVariant; lSize: Integer);
begin
   ShowMessage('data received - ' + LEADDICOMNet1.GetPeerAddress (hNet) + ' Status=' + IntToStr(nStatus) + ' Type=' + IntToStr(nType));
end;