do not update konfig if pc is not assigned (yet)

3 files changed, 3 insertions, 1 deletions

diff --git a/emails.res b/emails.res
index 4ff746d..877868c 100644
--- a/emails.res
+++ b/emails.res
diff --git a/unit1.lfm b/unit1.lfm
index 385e5ec..a8fbd46 100644
--- a/unit1.lfm
+++ b/unit1.lfm
@@ -11,7 +11,7 @@ object Form1: TForm1
   OnDestroy = FormDestroy
   OnResize = FormResize
   OnShow = FormShow
-  LCLVersion = '1.6.4.0'
+  LCLVersion = '1.8.4.0'
   object Memo1: TMemo
     Left = 0
     Height = 584
diff --git a/unit1.pas b/unit1.pas
index c5029f2..12bddaf 100644
--- a/unit1.pas
+++ b/unit1.pas
@@ -132,6 +132,8 @@ procedure TForm1.CheckBox1Click(Sender: TObject);
 var
   sl: tMyStringList;
 begin
+  if not assigned(pc) then
+    exit;
   sl:=tMyStringList.create;
 
   if checkBox1.checked then