--- /dev/null
+unit Netmon;\r
+\r
+interface\r
+\r
+uses\r
+ Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,\r
+ Dialogs, StdCtrls, ExtCtrls;\r
+\r
+type\r
+ TNetmonForm = class(TForm)\r
+ Button1: TButton;\r
+ Button2: TButton;\r
+ RadioGroup1: TRadioGroup;\r
+ procedure Button1Click(Sender: TObject);\r
+ procedure Button2Click(Sender: TObject);\r
+ procedure FormCreate(Sender: TObject);\r
+ private\r
+ { Private declarations }\r
+ public\r
+ { Public declarations }\r
+ end;\r
+\r
+var\r
+ NetmonForm: TNetmonForm;\r
+\r
+implementation\r
+\r
+{$R *.dfm}\r
+\r
+procedure TNetmonForm.Button1Click(Sender: TObject);\r
+begin\r
+ NetmonForm.close();\r
+end;\r
+\r
+procedure TNetmonForm.Button2Click(Sender: TObject);\r
+begin\r
+ RadioGroup1.ItemIndex:=-1;\r
+ NetmonForm.close();\r
+end;\r
+\r
+procedure TNetmonForm.FormCreate(Sender: TObject);\r
+begin\r
+ RadioGroup1.ItemIndex:=2;\r
+end;\r
+\r
+end.\r