procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
384 procedure TPSMainForm.FormCloseQuery(Sender: TObject; 385 var CanClose: Boolean); 386 begin 387 if Analyzing then 388 CanClose := false; 389 end;