NetSend Example for Delphi

procedure TForm1.LEADDicomNet1NetSend(ASender: TObject; hNet: Integer;
  nStatus, nType: Smallint; lBytes: Integer);
begin
    //Some data was sent
    ShowMessage('Data Sent to: ' + LEADDICOMNet1.GetPeerAddress (hNet) + ' Status = ' + IntToStr(nStatus));
end;