diff options
-rw-r--r-- | emails.res | bin | 138936 -> 138932 bytes | |||
-rw-r--r-- | unit1.lfm | 2 | ||||
-rw-r--r-- | unit1.pas | 2 |
3 files changed, 3 insertions, 1 deletions
Binary files differ @@ -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 @@ -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 |