From f1fddce52378ca51ab4d943830451700dffdedce Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Thu, 31 May 2018 19:36:23 +0200 Subject: do not update konfig if pc is not assigned (yet) --- emails.res | Bin 138936 -> 138932 bytes unit1.lfm | 2 +- unit1.pas | 2 ++ 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/emails.res b/emails.res index 4ff746d..877868c 100644 Binary files a/emails.res and b/emails.res differ 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 -- cgit v1.2.3-54-g00ecf