--- /dev/null
+unit backup;\r
+\r
+interface\r
+\r
+uses\r
+ Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,\r
+ Dialogs, StdCtrls;\r
+\r
+type\r
+ TBackupForm = class(TForm)\r
+ GroupBox1: TGroupBox;\r
+ CheckBox1: TCheckBox;\r
+ CheckBox2: TCheckBox;\r
+ CheckBox3: TCheckBox;\r
+ CheckBox4: TCheckBox;\r
+ CheckBox5: TCheckBox;\r
+ Button1: TButton;\r
+ Button2: TButton;\r
+ GroupBox2: TGroupBox;\r
+ ListBox1: TListBox;\r
+ procedure Button2Click(Sender: TObject);\r
+ procedure Button1Click(Sender: TObject);\r
+ procedure FormActivate(Sender: TObject);\r
+ private\r
+ { Private declarations }\r
+ public\r
+ { Public declarations }\r
+ end;\r
+\r
+var\r
+ BackupForm: TBackupForm;\r
+\r
+implementation\r
+\r
+uses MainUnit;\r
+\r
+{$R *.dfm}\r
+\r
+procedure TBackupForm.Button2Click(Sender: TObject);\r
+begin\r
+ PhoneBackupAvailable:=false;\r
+ BackupForm.Close;\r
+end;\r
+\r
+procedure TBackupForm.Button1Click(Sender: TObject);\r
+begin\r
+ BackupForm.Close;\r
+end;\r
+\r
+procedure TBackupForm.FormActivate(Sender: TObject);\r
+begin\r
+ CheckBox1.Checked:=false;\r
+ CheckBox2.Checked:=false;\r
+ CheckBox3.Checked:=false;\r
+ CheckBox4.Checked:=false;\r
+ CheckBox5.Checked:=false;\r
+end;\r
+\r
+end.\r