procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
	// Prevent closing of parent form when SecureSign is embedded/overlayed and created
    // and Sign Mode is active
    if Assigned(StepOverSecSign) then
    begin
        CanClose := (StepOverSecSign.getWorkMode < 8);
    end else begin
        CanClose := True;
    end;
end;