1 files changed, 2 insertions, 0 deletions
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